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ABSTRACT 


This thesis critically analyzes the Sharable Content Object Reference Model 
(SCORM) within higher education and examines SCORM’s limitations within a realistic 
application environment versus within a theoretical/conceptual platform. The thesis also 
examines environments better suited for implementation of SCORM technology. 

In addressing the research questions, it was discovered that from the current 
standards set forth by Advanced Distributed Learning (ADL), SCORM is not well suited 
for higher education. SCORM technology will prove of greater utility within the Navy 
Training environment than in higher education. In their effort to share information, 
higher education institutions would benefit more from a Content Management System in 
conjunction with a Learning Management System. 

Subsequent chapters addressed the limitations of SCORM, provided a 
comparison of the applicability of SCORM within the separate domains of naval 
Education and Training, and provided a prototype of a Content Management System for 


institutions of higher learning. 
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I. THE NEED TO MANAGE CONTENT 


A. INTRODUCTION 


This thesis will critically analyze the Sharable Content Object Reference Model 
(SCORM) within higher education. It will offer SCORM’s limitations within a realistic 
application environment versus a theoretical / conceptual platform. Lastly, the thesis will 
offer recommendations on the environment that will receive the greatest benefit from the 
implementation of this technology. This chapter introduces SCORM and its parent 
initiative, DoD-backed Advanced Distributed Learning (ADL), as well as the concepts 
that will be discussed throughout this thesis. 

B. DISORGANIZED INFORMATION 


Thousands of terabytes of information are housed within and accessible through 
the Internet. That translates into millions of pages of data. Within the last decade, almost 
every sector of society has managed to digitize information and make it available for 
either limited or unlimited distribution. This aggregation of information has contributed 


to mass collections without any true design for organization and extraction. 


As with any revolutionary idea, the Internet and its vast repositories of data and 
information were not produced or designed with the end in mind. Rather, it grew and 
morphed into something unrecognizable. All of the technology that makes the Internet 
possible serves to bring content, in the form of text, images, animation, audio, video, and 
their myriad combinations, to the intended or unintended audience. This content grew and 


continues to proliferate unchecked. 


It is not until recently that attention has been redirected to the issue of content 
architecture. Institutions such as government, business, and academia all serve as 
legitimate and authoritative sources of content. The impetus is perhaps the same for all: 
cut the cost of education and training while maintaining or increasing the quality of 
material. It should not be a surprise that these parties are collaborating in a joint effort to 
create and share content that is: 

...accessible from multiple remote locations through the use of meta-data 

and packaging standards; adaptable by tailoring instruction to the 


1 


individual or organizational needs; affordable by increasing learning 
efficiency and productivity while reducing time and costs; durable across 
revision of operating systems and software; interoperable across multiple 
tools and platforms, and reusable through the design, management, and 
distribution of tools and learning content across multiple applications. 
(ADL Overview, 2003) 


C. ADVANCED DISTRIBUTED LEARNING AND SCORM 


The Department of Defense, along with the White House Office of Science and 
Technology Policy, launched the Advanced Distributed Learning (ADL) initiative in 
1997. ADL’s goal is the acceleration of large-scale development of dynamic and cost- 
effective learning software and systems to stimulate an efficient market for these products 
to meet the education and training needs of the military and the nation's workforce (ADL 
Overview, 2003). Key to this plan is the development of a common technical framework 
for computer and net-based learning that will foster the creation of reusable learning 
content. This framework, known as the Sharable Content Object Reference Model 
(SCORM), is a software model that defines the interrelationship of course components, 
data models, and protocols such that content “objects” are sharable across systems that 


conform with the same model. 


To adopt the guidelines and specifications outlined in the SCORM, there must be 
an intermediary process that allows easing into the change demanded of the serious 
content providers, such as professors and academicians. Although the ADL initiative was 
introduced in 1997, it has yet to be implemented and widely accepted by all three 
stakeholders, the academic, commercial and government sectors, comprised of hundreds 
of vendors, universities and agencies, who play a role in SCORM development through 
three ““Co-Labs”. Why such delays to implement something that all three entities want 
and need? The sheer transformative effort is so overwhelming that it causes temporary 
paralysis within the minds of those who must move in that direction. The designers, 
architects, and engineers of ADL and SCORM are not those that must deploy it. The 
labor must be performed by dedicated content creators and managers. It is an enormous 
undertaking to transform content from its aggregate state to one that resembles its basic 


decomposed building blocks. 


Of the concrete aspects of SCORM, content creation and management are the 
most pivotal. Similar to the vast technologies that make the Internet function, SCORM 
serves to make content available. Without the content, the underlying infrastructure 
becomes worthless. The ADL Overview outlines functional requirements that must be 
present in order to take full advantage of the collaborative effort that such an endeavor 
inherently provides. The major functionalities discussed were accessibility, adaptability, 
affordability, durability, interoperability, and reusability (ADL Overview, 2003). Any 
one of the aforementioned functionalities is fertile ground for further research and 


development. Similarly, the interdependence of the many facets cannot be overstated. 


With the functional requirements stated and understood, there must be a focal 
point from which to facilitate dialogue amongst content creators. Of the three 
stakeholders, academia will perhaps have the most difficult task of transformation. The 
authors (professors) must see value in the transformation. Most professors see value in 
their teaching, not in creating content (publishing notwithstanding). The value lies in 
their ability to impart knowledge and wisdom from their experiences that breathe life into 


the abstract and theoretical. 


Content creators such as professors may not be interested or sufficiently enticed to 
embrace learning new technology such as new authoring tools. Software packages such 
as Outstart’s Evolution that provide content creation and management tools better serve 
the needs of content creators within a training environment. These same tools are not as 
suitable for academia. The political climate is more complicated within the halls of 
knowledge when one analyzes the many personalities that must work together to agree 
upon the delivery of content. 


D. REUSABLE LEARNING AND INFORMATION OBJECTS 


At the core of the SCORM reside Reusable Learning Objects (RLO) comprised of 
various types of Reusable Information Objects (RIO). Analysis of Sharable Content 
Objects (SCO) can be likened to the breakdown of matter to its atomic level, where the 
matter is the Reusable Learning Object (RLO) and RIOs are the basic building blocks 
that comprise it. It can be argued that subatomic components may also serve to define a 


SCO. However, such a degree of granularity does not truly serve any meaningful 


purpose because it removes all contexts from the presentation. It would be similar to a 
sentence lifted out of an entire chapter. It may be able to stand by itself but lacks true 
support and enforcement by other pieces of information surrounding it. 


1. Reusable Learning Objects 


Reusable Learning Objects facilitate content sharing by allowing only one 
singular learning objective to be present at any one time. RLOs must contain five 
elements: overview, pretest, lesson, summary, and quiz. The overview section is 
comprised of six subsections: introduction, importance, objective, prerequisite, scenario, 
and outline. The pretest contains questions relating to each RIO. The lesson is made up 
of the various types of RIOs. The summary offers a review and suggests next steps as 
well as offers additional resources. Lastly, the quiz mimics the pretest by addressing and 
evaluating key points that should have been understood or mastered. 


2; Reusable Information Objects 


The Naval Education and Training Center defines a RIO as a “small ‘chunk’ of 
subject matter that is based on one single supporting learning objective” (NET-PDTC, 
2003). A RIO concentrates on a particular subject. Moreover, the design and 
construction of the material should allow it to be self-supporting. Content specificity and 
the desired learning objective define the type of RIO employed to convey the ideas 


accurately. Meeting the above-mentioned criterion facilitates the RIO’s reuse. 


The RLO and its context will define the most appropriate type of RIO. The 
diversity of RIOs can be traced to the variety of information types that currently exist in 
academia and training institutions. The current system classifies RIOs into five distinct 
categories: concept, fact, procedure, process, and principle. Again, the content will 
define the most appropriate type to be used. To understand the differences, a basic 
definition of each type of RIO is in order at this point. 


e A concept is a “mental representation or prototype of objects or ideas for 
which multiple specific examples exist.” 


e A fact is “something with real and demonstrable existence in which every 
instance is identical to the other.” 


e A procedure RIO is one with a “sequential set of steps” in which the 
completion of the “steps result in accomplishment of a task.” The 
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directions for a procedure are to be “followed by one individual” and are 
“done more or less the same way each time.” 


° A process RIO is a “series of actions, changes, or functions that achieve an 
end result” in which it “tells how something works or how something is 
best done.” A process “may involve many people or an entire 
organization” but definitely requires more than one individual’s 
participation. 


e A principle RIO is a “task for which there are no specific steps but 
requires that application of guidelines, rules, laws, or policies to a situation 
which is subject to change.” (NET-PDTC, 2003) 


The breakdown of content does not stop at RIOs, but continues further within it. 
RIOs are comprised of five distinct elements—three obligatory and two optional. The 
three required elements are content items, practice items, and assessment items, including 
pretests and quizzes. The two optional items are interaction and review items (NET- 
PDTC, 2003). 
E. EDUCATION VERSUS TRAINING ENVIRONMENTS 


The level of specificity that a RIO demands is not useful in an educational 
environment. A RIO’s true value can be best seen in a training environment where finer 
and finer granularity provides greater proficiency in understanding of equipment or 
needed skills. Education, on the other hand, serves to familiarize and strives to produce a 
certain level of intimacy with concepts and theories. Educational material all too often 
encompasses many different types of RIOs in one topic. To attempt to dissect and extract 
each type of RIO out of a course would leave the RIO bereft of any true meaning or 
context. Moreover, the demand that it places upon the professor to attempt to divide and 


subdivide content becomes too laborious to see any real advantage. 


For example, the intent of a topic such as a Local Area Network (LAN) within a 
textbook dealing with computer networks is somewhat limited in its scope. The 
limitation is that it must cover all facets of the network. It cannot and will not enable a 
student that completes to course to erect a network and administer it. Functions such as 
operating and administering proprietary hardware, software, routers, switches, and 
security protocols all require specialized training to address expertly the many problems 


and issues that arise in each field. The scope within academia cannot be as ambitious as 


to attempt to offer proficiency in each area. Such a level of familiarity and intimacy can 


only be gained through technical training. 


In the training environment, there is a much easier consensus gained in how to 
best familiarize trainees and later test their proficiency with certain skill sets. Testing 
within an educational environment is often subjective, taking the forms of projects and 
papers that evaluate a student’s understanding of a certain subject matter. In a training 
context, evaluation can be quite objective in that the skill can be demonstrated and 


witnessed. Its evaluation is quite binary: a trainee is either capable of performing the task 


or is not. 
F. ACADEMIC REUSABLE OBJECTS CONTENT MANAGEMENT 
SYSTEM 


This concept prototype offers an education-specific template for RIO and RLO 
within academia. It does so without the demand for extra-fine granularity in subsections. 
One need only refer to a book to see that chapters, sections, and subsections are 
intentionally devised in a manner to allow introduction and familiarity with topics. User 
manuals, on the other hand, focus on systematic instructions on how to accomplish a task 
or acquire a skill. In an academic environment, a student should learn critical thinking 
skills and an understanding of the architecture and design of a technology. To facilitate 
knowledge in academia, it is imperative to devise a plan that affords ease of information 


sharing. 


A Content Management System (CMS) offers the ability to share content. A 
CMS such as Blackboard offers considerable functionality. Unfortunately, it does not 
currently offer dynamic content management. More often than not, it is used as a static 
repository for disparate content. Currently, content ranging from simple text to graphics, 
spreadsheets, animation, movies, and much more may be found within Blackboard. The 
content is inserted by authorized users such as professors, administrators, and educational 
technicians. The modification and deletion of such content is also the responsibility of 
the authors or technicians at the behest of the authors / professors. The content is stored 
without any real means of categorization. There are such compartments as course 
numbers and titles under which content may be placed. However, how does a professor 


or a student find the material once it is uploaded into the CMS? Only by manually 
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searching through all of the content can people find that for which they are searching. A 
dynamic content management system not only allows content insertion, modification, and 
deletion, but also content retrieval. Once content has been organized into atomic levels, 
it can later be easily imported into repositories such as Evolution and Blackboard. This 
thesis serves to provide a concept prototype of how such a process should and can work. 
G. RESEARCH QUESTIONS 


e From the current standards set forth by the Advanced Distributed Learning 
(ADL) office, is SCORM the most suitable model for higher education? 


° Will SCORM technology prove of greater utility within the Navy 
Education or Training environment? 


e In their effort to share information, would higher education institutions 
benefit more from a Content Management System rather than a Learning 
Management System? 


H. SUMMARY 


The following chapters will address the limitations of SCORM, provide a 
comparison of the applicability of SCORM within Navy Education and Training as 
separate entities, and provide a concept prototype of a Content Management System for 


institutions of higher learning. 
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I. ADVANCED DISTRIBUTED LEARNING 


A. INTRODUCTION 


A thorough comprehension of the genesis of the Sharable Content Object 
Reference Model (SCORM) depends upon a better understanding of its parent initiative. 
In 1999, three years after introducing the Advanced Distributed Learning (ADL) 
initiative, Congress instructed the Department of Defense (DoD) to pay greater attention 
to the utilization of technology in its deployment of education and training materials. 
The original concept called for tailored and individualized education and training. 
Individualized training, in its purest sense, can never be a reality. An alternative is 
material tailored for individual communities that share a need for common education and 
training. 


B. HISTORY 


Advanced Distributed Learning does not call for bachelor’s or master’s degree- 
level ‘“anytime-anywhere” education. Rather, it calls for individualized learning for 
soldiers and sailors. Perceptions of a lack of training or readiness among Reserve 
Component (RC) forces during the Persian Gulf War of 1991 prompted the ADL 
initiative in 1996. General Accounting Office (GAO) studies and testimony from 
military sources added to the belief that RC units required additional access to education 
and training opportunities to achieve a greater degree of readiness than was judged 


available during Operation Desert Storm (W. Cohen, 1999). 


Military schools cost the DoD more than $17 billion per year (GAO-03-393, 
2003). As part of their expenditures on training for military personnel, the DoD has 
invested in several different learning management systems (LMSs), which are nearly 
identical yet incompatible, and there are considerable benefits in developing ways to 
share courses among them. Over 3 million military and civilians attend 30,000 courses, 
which last from days to months. It is imperative to cut costs while maintaining delivery 
of education and training to the millions that depend upon it to fight wars or support the 


soldiers and sailors that are actively engaged in battle. 


C. LEGISLATION 


The Secretary of Defense first introduced ADL as an initiative in 1996 during the 
Quadrennial Defense Review (QDR). Section 378 of Public Law 105-261, the Strom 
Thurmond National Defense Authorization Act for Fiscal Year 1999, obligated the 
Secretary of Defense to design and implement measures that expanded upon distance 
learning measures. Though Section 378 discusses collaborative efforts with industry and 
other government agencies, it specifically focuses on the DoD (GAO-03-393, 2003). 
Executive Order 13111, Using Technology to Improve Training Opportunities for 
Federal Government Employees, established 12 January 1999, orders the Department of 
Defense to lead the way in shaping the future standards of learning technology. It not 
only serves to address the needs of soldiers and sailors today, but also charges the DoD 
with forecasting future training needs. 


D. NEW AND IMPROVED ADL 


Advanced Distributed Learning is instruction that does not require an instructor’s 
presence, can use more than one media (text, images, audio, video, etc.), and emphasizes 
the use of reusable content, networks, and learning management systems. The DoD 
demanded that the technology enable a more ‘learner-centric’ system to expand and 
complement legacy systems (GAO-03-393, 2003). This system should move away from 
a “factory model” such as large education and training institutions to a network-centric 
“information-age model” which incorporates a shift from “right-time, right-place” to 
“anytime-anywhere” learning. This transition became necessary in line with the DoD’s 
focus on multi-Service, joint, interagency, and coalition war fighting. It became obvious 
that all future wars would be fought as a collective, and no longer would any single 
Service branch be able to move and act independently of the others. To embody the very 
spirit of a network-centric war-fighting machine, the Armed Forces needed to educate 
and train its service members in the same manner in which it fought its wars — as one 
cohesive unit. By learning as one, they could fight as one. Learning as one required 


standardized instructional material shareable and understandable among all services. 
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E. 


THE “—ILITIES” 


After conceiving and articulating the basic idea of standardization, ADL defined 


parameters to gauge instructional materials suitable for the new teaching and learning 


environment: 


eAccessibility - Ability to access instruction from one remote location and deliver it 


to many other locations, and training and technology reach-back for deployed 


soldiers. 


eInteroperability - Ability to use instructional components developed at one location 


in another location, or by more than one service - in other words, between all 


advanced distributed learning and instructional platforms, media, and tools. 


eDurability - Ability to continue using instructional components without redesign or 


recoding when base technology changes. 


eReusability - Ability to design instructional components for incorporation into 


multiple applications. 


eAffordability - Ability to reduce instruction time, number of students per course at a 


resident schoolhouse and education infrastructure cost. Moreover, provide 
significant increases in learning and readiness per net increment in time or cost. 
(ADL Overview, 2003) 

ELEMENTS FOR SUCCESS 


For the ADL initiative to survive and flourish into its envisioned state, some 


common elements are necessary: 


Common industry standards and interoperable tools and content: The DoD 
must work with academia and industry to define standards by which to 
encourage interoperability and compatibility without sacrificing quality. 

Robust and dynamic network infrastructure for distribution: The network in 
which the data is stored and transmitted must be Joint Technical Architecture 
(JTA)-compliant to allow building upon a common infrastructure. 

Supporting resources: Design current material to allow ease in sharing. 

Cultural change at all levels of command, recognizing that learning is an official 


requirement of the duty day: Change the perception that learning which 
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enhances the readiness of the Department personnel is an additional or a 


personal-time responsibility for DoD employees. 


Of all the necessary factors, the last element, requiring cultural change, will be the 
most difficult. The cultural differences amongst the different branches notwithstanding, 
far too many see education as a luxury and not a necessity. Training, on the other hand, 
is mandatory and enjoys a unique priority within the military. If service members desire 
to obtain a baccalaureate or master’s degree, they must do so on their own. This is not to 
say that the Services do not have opportunities for higher education - they most certainly 
do. The vast majority who do not know about such programs, or do not apply, or do not 
meet eligibility requirements, must pursue education on their own time and occasionally 
with their own funding. To change the culture and make education as mandatory as 
training will take even greater effort and money to implement. 


G. CHALLENGES AND OBSTACLES 


The very elements that would bring ADL to fruition are the same that inhibit its 
complete realization. Nevertheless, the problem is not merely with ADL, but the 
overriding mentality of the military and that of the Department of Defense. Financial, 
technological, cultural, and policy obstacles stand in ADL’s way as they have in many 
other endeavors. Financially, projections place the program approximately $600 million 
over budget by 2007. Technologically, the development, fielding of, and access to 
military skills-related content is more difficult and costly than anticipated. Bandwidth 


issues and unresolved network security concerns stifle utility (GAO-03-393, 2003). 


Culturally, it is difficult for senior leadership to make the change from traditional 
school settings to virtual classrooms as the preferred method of teaching and learning. 
Moreover, some leaders in charge of traditional schools are reluctant to close classes that 
directly affect their overall financial well-being, as budgetary allotment is usually 
contingent upon the number of students physically in attendance (Granado, 2003). It may 
not be obvious that there still exists a vast majority of older military and civilians within 
the DoD who have not yet fully embraced computer technology and thus have limited 


literacy in the arena. Lastly, there is currently no policy that clearly outlines ADL’s use 
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in lieu of, or in conjunction with, other military services’ training regulations (GAO-03- 
393, 2003). 
3: Army 


The Army points to cultural, technological, regulatory, and financial obstacles as 
the primary challenges with ADL implementation. Factors such as computer literacy, 
users’ ages, schoolhouse reluctance to change, and lack of senior leadership support 
contribute to the cultural obstacle. Technologically, in addition to contracting 
difficulties, courseware is developed and fielded at a slower pace than expected. Good 
military occupational skill-related content is important to program success, but there is 
little available because it is more complicated to develop than once anticipated. 
Regulations have been slow to change in its incorporation of ADL. Lastly, funding does 
not facilitate meeting requirements. (GAO-03-393, 2003) 

23 Navy 


The challenges that have befallen the Navy are concentrated within the arenas of 
technology and finance. Their technological adversities relate closely to the slow 
progress in course conversion and LMS implementation. Moreover, there are bandwidth 
limitations for deployed units in addition to upgrade limitations in small ship 
communications infrastructure. Financially, there is limited funding for course 
development as well as hardware in the classrooms to run content since NMCI hardware 
is inadequate for executing all web based training course content. Lastly, the anticipated 
return on investment (ROI) savings are notably less than anticipated life cycle costs 
because of the significant up-front costs that are required to achieve life-cycle costs. 
(GAO-03-393, 2003) 

3 Marine Corps 


The Marines’ challenges are cultural, technological, and financial. Limited 
experience with distance learning, lack of incentives for pursuing distance learning as 
well as reluctance from schoolhouses all compound the issue of culture. In the past, 
technologically, the Marines’ network firewalls made access quite complicated if not 
impossible. Now, as part of the NMCI, they suffer from the same maladies as the Navy 


with regards to technology. Moreover, course conversion processes require greater 
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investment of time than anticipated. Financially, the program requires an enormous up- 
front cost to realize long-term ROI. (GAO-03-393, 2003) 
4. Air Force 


The Air Force faces challenges similar to those of the Marine Corps. Cultural 
change is omnipresent. Limitations in bandwidth, slow course conversion, and lack of 
standardized “just-in-time” ADL applications all add to the technological obstacles for 
the Air Force. Lastly, funding has not kept pace with ADL’s goals and objectives. 
(GAO-03-393, 2003) 

H. CONCLUSION 


DoD’s original design for ADL did not envision a complete overhaul of the 
education and training model. Its desire was to enable the widest dissemination and 
sharing of the greatest amount of information and learning as practicable. In this effort, 
the quantity and quality of the education and training materials were not to suffer at the 
hands of technology or the need for wider distribution. Along the way, ADL has been 
met with technological, cultural, financial and policy/regulatory difficulties. Having this 
understanding of the vision behind ADL will allow a deeper understanding of the 
military’s expectations regarding education and training in the next decade. Moreover, 
this chapter suggests the military’s perspective on some of the differences between 


education and training discussed later in this thesis. 
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Hil. LIMITATIONS OF SCORM 


A. INTRODUCTION 


The Sharable Content Object Reference Model (SCORM) was one answer to the 
Advanced Distributed Learning’s (ADL) call for standardization. It has many limitations 
in need of remedy. One limitation, experts argue, is that SCORM’s cookie-cutter 
approach does not furnish a template applicable to every organization that produces 
educational material. 


B. THE OBJECTS OF SCORM 


SCORM outlines a set of standards by which instructional designers may produce 
sharable learning objects. These objects are the smallest pieces of instruction dissectible 
from the whole. Once separated into pieces, these pieces are intended to fit with other 
pieces from other wholes to make up an entirely new entity. While SCORM invites 
comparisons to Lego building blocks, this thesis would offer that it behaves more like a 
Frankenstein creation: combine a few pieces from here with a few pieces from there, and 
hope that it lives and breathes. Are disparate pieces necessarily as accurate and effective 
as the whole from whence it came, or are they a “hotchpotch of ill-matched content 


where the learner has to work out the contextual relations”? (Bohl, 2002) 


In essence, the instructional quality and worth of what actually runs on a 
SCORM-compliant system is suspect. Leading figures in SCORM development echo 
these sentiments, among them Thor Anderson, director of developer support at the 
Instructional Management System (IMS) Global Learning Consortium and technical 
editor of two major specifications that went into SCORM. He strongly asserts that “the 
interoperability that existing specifications promote is just plumbing, and the 
specifications don’t care about the quality of what goes into the pipes. It could be spring 


water, or it could be sewage.” (Welsch, 2002) 


The “sewage” to which Anderson is referring is a byproduct of a vague concept 
called a Reusable Learning Object (RLO). Various organizations may agree upon a 
definition that would attempt to qualify a RLO as the smallest piece of instructional 


material. David Merrill, an instructional systems design expert at the Utah State 
1) 


University of Instructional Technology, points out an obtuse definition that further attests 
to the vague nature of the beast: “as small as a drop, as wide as the ocean.” In other 
words, if everything is a learning object, then nothing is a learning object” (Welsch, 
2002). 

C. “SCORM IS NOT FOR EVERYONE” 


Dan Rehak, of Carnegie Mellon University’s Learning Systems Architecture Lab, 
is a well-known figure in the ADL and SCORM arenas, and thus intimately aware of 
SCORM’s limitations. In addition, he is one of the primary architects of the SCORM 
initiative. The Center for Education Technology Interoperability Standards (CETIS) has 
understood that SCORM may not be applicable or appropriate for colleges and 
universities. Mr. Rehak said that “SCORM is essentially about a single-learner, self- 
paced and self-directed. It has a limited pedagogical model unsuited for some 
environments.” CETIS’s article further points out that because DoD was the primary 
consumer, SCORM’s design was intended for their specific training needs, defined as 
“training for specific systems and situations by people who are not generally in full time 
education.” It satisfactorily fulfills this requirement; however, according to Rehak and 
CETIS, “SCORM has nothing in it about collaboration. This makes it inappropriate for 
use in HE (Higher Education) and K-12. The lack of specificity of purpose within the 
educational environment makes SCORM a less likely fit, whereas the training 
environment with its predefined purposes may fully benefit from such an initiative.” 
(Kraan, 2002) 

D. SEARCHING FOR THE FRUITS OF LABOR 


SCORM is one solution to the ADL initiative. However, it is not the only 
solution. SCORM represents a considerable investment of effort, time, and money, and 
its proponents feel that it would be a shame not to see the fruits of their labor. Every 
organization has had failed projects. It is more important to learn from mistakes and not 
repeat them, rather than foolishly pour more resources into a product or a specific 
direction of a project when the end is uncertain. Human fallibility and ego prevent most 
individuals from realizing when it is indeed time to change course and write off these 
sunk costs. Real options theory teaches managers to place mechanisms within various 


stages of a project to allow managers and decision makers to cease and desist as opposed 
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to continue on a fruitless path (Trigeorgis, 1996). SCORM is undoubtedly a major boon 
to the training environment. It is not so for the academic arena. ADL’s communications 
officer, Mark Oehlert, asserted that “The point is that we would be hurting our own 
efforts if we tried to move SCORM in a direction that would cause those that have 
invested a great deal to implement to have to throw everything away and start 
over.’’(Kraan, 2002) 

E. LACK OF ARCHITECTURE 


Architecture, as a concept and tool, provides for the intentional design and 
construction of an object. In this case, SCORM is the object under construction. 
However, even with that blueprint, SCORM’s design and implementation details are 
unclear. To use euphemisms such as ‘evolve’ to connote indefinite iterations of a product 
do not inspire confidence. “The extensive cataloguing by means of metadata is an 
obstacle for developers and vendors because existing content has to be provided with 
metadata to be SCORM compliant” (Bohl, 2002). An argument against SCORM in an 
academic environment is that once material is converted through this arduous process 
into SCORM-compliant formats, instructors and instructional technicians should expect 
that it will be durable as advertised. Unfortunately, even ADL is not quite certain about 
the future of the newest version of SCORM. Oehlert pointed out that “what SCORM 2.0 
will end up being is not exactly clear at this point. The plan is to evolve SCORM to 
ensure that it is as useful as possible to the ADL community” (Bohl, 2002). 

F. ENTERPRISE-WIDE DISTRIBUTED LEARNING COMPLICATIONS 


The goal of the ADL initiative was to enable the sharing of content across all 
levels and organizations within the federal government to include the Department of 
Defense. It was DoD’s desire to reduce the cost of the disparate and overlapping LMSs, 
but it could not have foreseen the complexity in actually implementing SCORM across 
an enterprise-wide distributed learning system (E. Cohen, 2002). DoD’s composition of 
varied and distinct military branches and equally varied and distinct information 
management systems would suggest that it is an unlikely candidate for SCORM. The 
military is one of the world’s most protective organizations concerning information 
access, highly particular about who may gain access and what information is accessible. 


Moreover, access to each of these disparate systems is restricted to certain sources. They 
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have conflicting and overlapping firewall restrictions and multiple local and wide area 
networks (Englebrecht, 2003). Figure 1 provides an example illustrating these 
restrictions. While the intent of ADL was to enable content sharing whereby Marines 
undergoing tank training at Quantico could access the same training material used by 
soldiers at the U.S. Army Tank School at Fort Knox, incompatibility across domains 
actually thwarts this effort. 
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Figure 1. Illustration of SCORM Incompatibility in Enterprise System 
(From Ref. Englebrecht, 2003) 


Firewalls are not the only hurdles that SCORM must overcome. Another 
complication occurs when accessing or launching SCORM-compliant courses. SCORM 
employs an Application Program Interface (API) to communicate with a compliant 
Learning Management System (LMS). In addition, SCORM does not permit the use of 
HACP1 because it is based upon the Hyper Text Transport Protocol (HTTP). API uses 
Java Scripts to handle all communication between the course content and the LMS. The 
use of Java Script allows easier course development since most of the direct interfacing 


with the LMS database abstracts to a set of Java Script functions (Englebrecht, 2003). 





! HTTP AICC (Aviation Industry CBT Committee) Communication Protocol 
18 


1. Application Program Interface 


Within this model, the first step for a SCORM-compliant course will be to find 
the API so that it may communicate with the LMS. While this step may appear 
straightforward, it is actually much more convoluted. The confusion arises when one 
considers the source and location of the code. The function that calls to find the API and 
the execution of the individual functions contained within the API are the responsibility 
of the individual SCOs; however, the source of the API is the LMS, as shown in Figure 2. 
Upon launch from the LMS, the LMS must maintain a web browser window or frame 
that contains the API and the SCO must be capable of locating and including the API 
functions as if the functions were a part of the content. Theoretically, the two should 
reside on the same domain. If this is the case, then there is absolutely no problem. 
However, in practice this is seldom the case. If the content is not on the same domain as 
the LMS, security policies will not allow the content to call upon the API, thereby 


disabling the entire process and rendering the learning object worthless and useless. 


Learning Management System 


Learner System 


Figure 2. | Cross-Domain Problem in SCORM 
(From Ref. Englebrecht, 2003) 
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2. Sandboxing versus Code Signing 


A browser, without the knowledge or consent of the user, may call upon 
malicious code hidden within web pages. Two means of reducing or eliminating this risk 
are sandboxing and code signing. Sandboxing employs Java, which does not allow the 
unidentified code to function outside the parameters of the program. This also serves to 
limit its interaction and interference with other processes or programs. This method does 


not require user input. 


Code signing, on the other hand, uses ActiveX and places the burden of code 
validation upon the user. If the user can authenticate it, it may run. No systems security 
officer would allow such a rule. Such authentication requires that the user understand the 
purpose of the code. All too often, the greatest threats to computer systems are the users 
who do not understand their own actions and cause security breaches through their 
negligence. Thus, this model is not well suited for the DoD environment. Sandboxing is 
the only clear alternative. Unfortunately, that means that all the necessary code that a 
SCORM-compliant course requires must reside on one single domain or sandbox. 


1. DoD’s Mobile Code Policy 


DoD’s mobile code policy disallows the importing of code from outside domains 
to run objects within its domains (DoD CIO Memorandum, 2000). The firewall controls 
prohibit courseware from crossing the predefined firewall boundaries, a rational measure 
for any organization. However, DoD goes one step further and restricts the use of web 
technologies such as Java, JavaScript, ActiveX, Macromedia Shockwave, Macromedia 
Flash, and most other client-side programming technologies. These technologies are 
grouped into one of three categories. Categories 1 and 2 allow the running of code only 
from trusted sources. Category 3, on the other hand, contains a great deal of the 
applications that provide the rich interactive environment for a truly engaging and 
worthwhile learning experience. To avoid violating this policy, each command would 
require its own LMS (Englebrecht, 2003). Another more cost-effective method may be 
the creation of a central LMS, such as Navy Knowledge Online, but this would only 
address content developed and maintained by the Navy. As a result, yet another measure 


must address the education and training content developed and maintained by other 
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branches. If there were one central area for everyone, the gargantuan task of maintaining 
currency of content would be incredible, and perhaps insurmountable, inevitably leading 
to outdated and inaccurate information. 


G. CONCLUSION 


SCORM has many issues in the area of architecture (enterprise-wide 
implementation), clearer definition of its Objects, as well as its limited applicability to 
certain types of educational material. The purpose of this chapter was to illustrate that the 
needs of higher education cannot be met by SCORM. The relationship of this chapter to 
the remaining paper is that it provides for a transition from thinking that SCORM is the 


panacea for information categorization and sharing. Indeed, it is not. 
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IV. EDUCATION VERSUS TRAINING 


A. INTRODUCTION 


The terms “education” and “training” are frequently used interchangeably without 
considering their actual dissimilarities. The military especially often treats the terms as 
synonyms, despite the fact that each concept requires a different approach. This chapter 
clarifies the distinction between education and training, in addition to illustrating the 
applicability of SCORM to each. 

B. ADL’S VISION OF LEARNING 


Learning is the bridge from information to understanding. It is most effective 
when coupled with experience; it leads to changes in thinking and behavior; it requires 
time for reflection and integration. Information superiority of the future will be the 
gathering, processing, fusion, and dissemination of more accurate and timely information 
and knowledge, anywhere, anytime, every time. The forces must continuously learn, 
simulate, and rehearse, whether in school, at home station, at home, en route to, or in the 
theater of operations. The forces must fight in a coordinated and cooperative fashion on a 


moment’s notice. (W. Cohen, 1999) 


According to Rehak, "SCORM is essentially about a single-learner, self-paced 
and self-directed. It has a limited pedagogical model unsuited for some environments” 
(Kraan, 2002). One such environment may be higher education, the domain of colleges 
and universities. The “right-time, right-place” theory cannot truly apply to higher 
education. Higher education requires deliberate coordination and management of time 
and resources, as well as sufficient guidance. The idea that individual learners may direct 
themselves through two years’ worth of associate’s degree requirements, four years’ 
worth of baccalaureate degree requirements, or six years of master’s degree requirements 
makes “right-time, right-place” for higher education fallacious by any stretch of the 
imagination. Among the many differences between education and training discussed here 
is the time span involved for each. Degree-level education represents too much 
information to be grasped and immediately used in a brief amount of time. Conversely, 


training can take place over a few months, weeks, or even days, with the intent that the 
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achieved objectives may immediately be put into practice. It cannot be argued that 
learning encompasses the areas of education, training and performance aiding. However, 


the approach taken to deliver the necessary information in each category varies. 


The 106" Congressional Report “Total Force Integration” points out that 
America’s military forces have a long tradition and well-deserved reputation of providing 
world-class education and training (W. Cohen, 1999). The report also indicates the 
mechanism delivering this education and training is in need of reevaluation to keep pace 
with educational technology. The overwhelming success of Operation Desert Storm was 
attributed to highly educated and trained service members. It was also noted, however, 
that many of these warriors trained in the same classrooms that prepared their 
grandfathers for World War I, which suggests military training and education treads a 
fine line between the tried-and-true and the outdated. The argument in favor of a 
paradigm shift in education and training is a response to the current conditions of 
increasingly demanding deployment criteria coupled with other time-sensitive 


constraints. 


The singular element that supposedly necessitates the paradigm shift in learning is 
the pace with which new technologies and weapons systems are introduced. 
Advancements in technology invariably introduce greater complexity in modern weapons 
systems. Learning a weapons system or any other system requires training in a specific 
area of that system. It would be far-fetched to require or expect one person to have the 
requisite knowledge and skill do everything on an entire system. The person trained to 
use it is often not the same person trained to maintain and repair it. The person who 
designed it is usually not the one that built it. The complexities of modern military 
systems make it difficult to find that sole genius who can do it all. This poses the 
question: is the dictated paradigm shift intended for education, for training, or for both? 
(W. Cohen, 1999) 

C. WHAT IS THE DIFFERENCE? 


Education and training may have some elements in common, but they are 
distinctly different. Each requires a specific teaching methodology and objective. In 


some instances, education may be the most suitable method, while other instances may 


24 


call for training, and still other cases involve a balance of both education and training. 
Consider the differences in a parent’s response if a teenager announced that her high 
school was offering a sex education course versus a sex training course. The parent’s 
response would be markedly different. Drivers “education” is actually an example of 
education and training working hand-in-hand: prospective drivers should have the benefit 
of both education about theories and concepts as well as behind-the-wheel training to put 
these ideas into practice. Likewise, a person who wants to learn to fly must spend many 
hours in “ground school” before being allowed aboard the plane, yet the prospective pilot 


must also log many hours of flight training before being granted a license. 


Teaching styles vary for education and training. A teacher educates people about 
the principles or rationale behind a particular policy, program, or process. Education is 
designed to foster individual creativity, ownership, or empowerment. Education targets 
thought processes directly and might indirectly influence what people do. Training, in 
contrast, targets behavior directly and might indirectly influence thought processes 


(Geller, 2000). 


Education is generally measured by duration: days spent in a seminar or four 
years in college. Training, on the other hand, is measured by what one can do when it has 
been completed. Training is doing. Training improves performance. For training to 
work, it must have defined and measurable objectives (Cross, 1996). Education does not 
have such predefined measures of mastery. 


D. MILITARY EDUCATION OR MILITARY TRAINING 


The DoD and much of industry tend to focus more on training than education. It is 
important to differentiate between these two terms. Because they both involve learning, 
they are similar, and in everyday conversation the terms are often used interchangeably. 
However, they are not the same. The Random House Webster’s Dictionary (1999) 
defines training as “activity leading to skilled behavior,” while education is “the gradual 


process of acquiring knowledge.” 


Learning is often classified into three domains: psychomotor (doing), cognitive 
(thinking), and affective (feeling). Training emphasizes the psychomotor domain of 


learning, targeting behavior directly, while education concentrates on the cognitive 
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domain, targeting thought processes directly. Education aims for high comprehension, 
while training done in the cognitive domain usually focuses on general knowledge. 


(Kline, 1985) 


Training is concerned with meeting criterion objectives, where a student is 
expected to exhibit specific behavior in accordance with a predetermined level or 
standard (e.g., “List the steps for administering CPR.”). Verification of skills learned is 
best achieved through demonstration in the “real world,” perhaps through a simulated 
experience (Kurtus, 1999). Cognitive objectives, involving a student’s ability to analyze, 
evaluate and apply information, are more appropriate for education. Testing in education 
usually concerns the memorization of facts, events and principles, and the association 


between concepts. 


Training is a closed system, where the trained individual is recognized as 
knowing the “right answers” or doing things the “approved way” (Kline, 1985). Thus, the 
work of each trainee is expected to have a uniform quality. Education, however, is an 
open system. There is no limit to how well a graduate may be prepared to handle new 
responsibilities. In the Navy, this difference translates to cost-effectiveness. While an 
education provider would not be concerned with overeducating a student, a training 


provider would consider overtraining cost-ineffective (Granado, 2003). 


Since students are encouraged to develop to their full potential, education is not 
bounded by constraints of job requirements, skill levels, or objectives, as they are with 
training. Time requirements for training can vary depending on the aptitude, experience 
and skill level of the student, while in education time is often a constant (four years, 45 


quarter units, etc.), and therefore specified. 


The development of curricula is different for education than for training. A task 
analysis can determine a complete listing of skills and knowledge necessary for a trainee 
to demonstrate competence. In contrast, educators must often look to experts to determine 
what needs to be taught. With a universe full of ideas, it is often hard to reach a 
consensus. This lack of exactness is observed when comparing the curricula of two 


similar disciplines at two different schools. 
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A prevailing concept in the field of instructional design concerns the interaction 
between three major entities in a typical learning environment: the textbook/learning 
materials and other documents, the instructors, and the students (DLRC interview, 2004). 
Each of these interacts with the other (Student¢ Instructor, Student¢>Textbook) and 
with themselves (Student¢ Student). Where training is concerned, the most important 
interaction is usually Student¢>Text, followed by Student¢ Teacher. 
Student¢Student interaction is rarely emphasized in training environments. However, 
in education, Student¢>Student becomes a high priority—perhaps the highest. 
Distributed learning training environments, in addition to a lack of Student¢ Student 
interaction, may often lack Student¢ Instructor interaction. This is especially true when 
using Computer-based training (CBT) materials and NETC GMT materials: the student 


only interacts with the material’s content. 


In some cases, a strategic combination of training and education may be necessary 
to achieve an organization’s goals. An example would be in safety education and 
training. According to Geller (2000), 

Safety education without follow-up training will not reap optimal benefits. 

Learning the theory or principles behind an intervention approach is 

crucial for customizing procedures for a particular work situation. But 

after the procedures are developed -- hopefully with input from an 


educated work team -- training is necessary. People need to know 
precisely what to do. 


Distributed learning has been used to support both education and training in the 
public and private sectors. As the drive toward standards continues, with its emphasis on 
content reusability and interoperability, differences in the way content is delivered could 
be of greater benefit to training than education. In the training environment, emphasis is 
on what the trainee wants or needs to know rather than all that is known. For this reason, 
it is expected that the adaptation rate and utilization of SCORM-conformant learning 
objects will be higher at institutions focused on training (Granado). However, the ADL 
initiative addresses the use of reusable content for education as well as training. This has 
prompted considerable controversy from academia concerning the instructional 


soundness of “chunked” content. 
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E. INDIVIDUALIZED STANDARDIZED EDUCATION & TRAINING 


ADL and SCORM have marketed their initiatives by promoting the idea of 
individualized and tailored content, standardized based upon predefined criteria. Both 
initiatives require standardization of content and delivery in order to achieve widespread 
acceptance. However, by definition content cannot be both individualized and 


standardized at the same time. 


By forcing standardization of delivery, ADL and SCORM proponents are hoping 
to provide something for everyone. In response to user feedback, the latest version of 
SCORM incorporates better sequencing capabilities, allowing a user to ‘jump around’ as 
opposed to being confined to the sequence in which course material is presented. The 
learner can choose the method in which he wants to learn, via either concepts or 
examples or practice sessions. This does indeed support learners developing their own 
approach to learning. The caveat is, if they are ready (Cross, 2003). Learner-sequencing 
of the material will only be effective if the student has a clear goal in mind. Without a 
clear learning objective, the student may walk away with a jumble of ideas but not 


comprehension. 


Because every person learns differently, standardization of material will not 
necessarily command standardization of learning. Recent research revealed thirty-one 
different ‘flavors’ or dimensions along which learners could differ with over two billion 
different possible configurations (Cross, 2003). Distance learning material and its 
delivery must be sensitive to and support the many ways in which students learn. Mark 
Twain said, “I will not let schooling get in the way of my education.” He must have 


known about the emerging standards that were outlined for SCORM. 


The military sustains itself and its traditions by not allowing variety to encumber 
tradition, good order, and discipline. It is evident in their uniforms, their grooming 
standards, and their education and training. From boot camp on, service members are 
taught to learn the military way—a great deal of information in a very short amount of 
time. A fitting analogy for this approach is attempting to drink from a fire hose. If ADL 
is to succeed, the military must be re-trained and re-educated on new approaches to 


learning. What is happening, in essence, is an extension of the short-attention-span 
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philosophy of every other element in today’s society. Because of short-fused deployment 
and lack of time, information must be prepared in a single-serve package for a specific 
purpose. There is insufficient time to add side dishes that may distract from the primary 
point. Ifa good education can be likened to a healthy diet, eliminating certain items from 
the normal diet may prove to be detrimental in the short term and cause malnourishment 
in the long term. Education requires a complete view, and all the food groups must be 
represented in order to have the full picture 


F. CONCLUSION 


This chapter examined the distinct differences between education and training. 
While education concerns itself with the gathering of facts, concepts, theories, events, 
and principles, training addresses the need for a acquiring a specific skill. The following 
chapter will discuss the similarities and differences of Learning Management Systems 
(LMS) and Content Management Systems (CMS) to ascertain which may be most 


beneficial within either environment. 
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Vv. CONTENT MANAGEMENT 


A. INTRODUCTION 


Because the content universe offers infinitely diverse material, a traditional 
Learning Management System (LMS) may not be the ultimate solution to content 
management. Learning Content Management Systems and Content Management 
Systems complement and sometimes even substitute for an LMS. 


B. LEARNING CONTENT MANAGEMENT SYSTEM (LCMS) 


A Learning Content Management System (LCMS), shown in Figure 3, is 
generally used to create content efficiently. This efficiency is realized when subject 
matter experts, professors, authors, or instructional designers use an LCMS to create 
‘just-enough’ content to meet the needs of individuals or small groups of learners. This 
eliminates the need to design an entire course that is bogged down by too much detail in 
an attempt to provide something for everyone. Designers are given the artistic freedom 
to select the most relevant or necessary pieces to fulfill a specific objective. Evolution by 


Upstart is an example of an LCMS licensed to NPS. 


The drawbacks to an LCMS are that it takes a great deal of foresight, planning, 
and skill to design effective learning objects—even when templates and examples are 
provided. Designers must think in a non-linear fashion and have a fair understanding of 
all the contexts in which an object might be needed or used. Some courses, such as those 
required for safety or certification programs, are required to cover a specific set of topics 
in a certain order and should not be broken apart. For example, if a learning object is 
taken out of context or presented with insufficient supporting information, it can do more 
harm than good (Greenberg, 2002). 

C. LEARNING MANAGEMENT SYSTEM (LMS) 


Learning Management Systems are designed to manage learning objectives on an 
organizational scale. This primary solution replaces isolated and fragmented learning 
programs with a systematic means of assessing and raising competency and performance 


levels throughout the organization. Such efforts as enterprise-wide skills assessment and 
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Figure 3. Learning Content Management System 
(From Ref. Nichani, 2002) 





certification can be orchestrated. The focus of an LMS is to manage learners, keeping 
track of their progress and performance across all types of training activities. It can also 
handle a great deal of the administrative overhead of record keeping (Greenberg). A 


graphical illustration of an LMS is provided in Figure 4. 


NPS uses Blackboard as its enterprise-wide LMS, although not all professors take 
full advantage of all of its functionalities. Actual DL instructors, teaching fully remote 
classes, are more likely to utilize all of the functionality, but many campus instructors 
merely use Blackboard to put up their notes as a website. As a result, NPS’s Blackboard 
system serves instead as a central repository for disparate sources of content. A possible 
reason for this is that students at NPS are not actually employees, thus their learning and 
training needs are addressed through other means. Blackboard, as an LMS, offers much 
functionality but does not foster or encourage institution-wide sharing. Content is 
statically housed within the many pages that must be created manually. Typically only 


those students enrolled in the class have ready access to the material, although instructors 
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do have the ability to allow non-students guest access to their material. Access to 
information is limited to manual searching via the navigation menu and a subsequent list 


of content. Moreover, it does not allow for dynamic searches of content. 
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Complete courses 





Figure 4. | Learning Management System 
(From Ref. Nichani, 2002) 


D. CONTENT MANAGEMENT SYSTEM (CMS) 


Familiarity with the basic features of an LMS as well as LCMS allows for a 
clearer understanding of a Content Management System (CMS), shown in Figure 5. A 
CMS allows content to be stored, retrieved, edited, updated, controlled, then output in a 
variety of ways (OIT, 2004) The primary objective of a CMS is the organization and 
administration of online material such as text, graphics, images, animations, audio/video 
files, etc. It manages the content, not its creation or its users. Rather than allowing 
aggregate and disorganized storage of content, a CMS allows efficient identification, 
compartmentalization, and retrieval of material (Nichani, 2001). The process of 
cataloguing and arranging content can be organization-specific. A CMS allows sharing 


of corporate knowledge housed within every member of the organization. Their 
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Figure 5. Content Management System 
(From Ref. Nichani, 2002) 


contributions allow for the widest dissemination possible via an organized delivery 


mechanism. 


If a course were structured in such a manner that it does not lend itself to 
implementation within a Learning Management System (LMS), it would be a waste of 
resources to force it to fit. Although it cannot benefit from a full-scale LMS, such a 
course could be housed in and distributed by a Content Management System. These 


types of courses do not require an on-line mechanism to gauge student progress. 


Though the proposed CMS focuses on the “pull” side of information access and 
retrieval, CMSs do have the capability to push information in a personalized manner. It 
can adeptly access every piece of information within the organization. 


E. CHARITY BEGINS AT HOME 


Professors at NPS have already accomplished the most tedious part of content 
management: content creation. Instructors have presentation slides, text documents, 


graphics, or animation for every class taught at NPS. Only by attending the course will a 
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person be aware of the content as presented by the professor. In many ways, a professor 
is the first line of defense in the war against information overload. The professor is 
intimately familiar with what is most pertinent and timely in a given field. Rather than 
students or users performing the initial litmus test, they can rely upon the expertise and 
discretion of the professor to guide them in a particular subject area. A professor’s 
creation is not fully utilized when presented only to the intended audience of students. It 
can and does have wider application beyond the course being taught. It could be made 
available to the entire organization to reap the true value of the content. This is, of course, 


provided certain intellectual property issues are addressed. 


This thesis also pointed out that organizational culture was a major obstacle. 
Professors are unwilling to give up their artistic freedom and perhaps their ownership of 
material that they have created. They cannot see the value of sharing because they have 
not had to work within an environment that mandated it. The redeeming factor of 
SCORM is its desire to create once and use often. As long as the material is up-to-date 
and accurate, it should be shared to the maximum extent possible. By touting the value 
of return on investment, people may be more apt to participate in this endeavor. At this 
stage, the real value of SCORM cannot be seen. Once professors find materials that 
complement their teaching, they will be more inclined to offer their works to other 
academics as well as accept materials from them. This currently occurs in distance 
learning courses around the globe whenever a professor places a hyperlink to an external 
source, such as a news article or website. The vision of SCORM’s developers is that this 
academic commerce should take place in a controlled environment where the content has 
been created to specification. 


F. POLITICS IN ACADEMIA 


Often, managers and executives are looking for a return on investment before they 
commit themselves or risk any type of loss. At times, the upfront costs are too exorbitant 
and thus deter many from accepting new ventures. SCORM presents such a challenge. 
This thesis offers that it is possible to have an intermediary process to illustrate the value 
of sharing within such a politically charged environment as academia. There is no 
singular source of information in any given field of study upon which all professors 


agree. This is quite evident by the fact that although a similar course may be taught at 
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different institutions, or even at the same institution, the information presented to students 
and the learning objectives will vary from instructor to instructor. Professors 
undoubtedly, and rightly, feel that their selected material is that which reflects the most 
crucial elements to convey. They are recruited, hired, and retained for their knowledge 
and experiential wisdom in a given field. They are not as valued for their ability to create 
content. An educational specialist or technician can be paid a fraction of the professor’s 


salary to create and compartmentalize content. 


Before SCORM can be fully realized, there must exist an intermediary process 
that allows for incremental progress. It is possible to dissect and implement SCORM in 
an intermediary phase based upon the user requirement that the content must first be 
sharable. One of the challenges pointed out by the Services was that of identification of 
material suitable for conversion to SCORM standards. If it is so unique that no more 
than a handful of individuals would be interested in the material, then the investment in 
conversion is a waste of resources in time, money, and personnel hours. However, by 
allowing content to be placed within a centrally managed repository and granting users 
permission to view items, it is being shared and thus meeting a basic premise of SCORM 
— it is now sharable content. 


G. JUST ENOUGH LEARNING 


Another aspect of SCORM that may be addressed at this stage is that of content 
decomposition. It does not have to be the level of granularity of an ‘object’ as defined by 
SCORM. Various estimates have been offered describing how much information is 
actually retained by the learner given the medium of delivery. The consensus is that there 
is too much information currently available concerning most topics. It cannot be argued 
that the information presented to students needs to be organized in such a manner to 
allow slow digestion by serving them in small pieces. This ‘just-enough’ teaching style 
assures that students are not overwhelmed and thereby are able to retain more of what is 
actually presented because they are not sifting through irrelevant or superfluous material. 
(Nichani, 2001) All too often, the information that is presented is too much for one 
person to truly absorb and retain. A Content Management System may be able to assist 


in organizing decomposed content. 
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MIT’s OpenCourseWare endeavors to meet the sharing challenge to an extent. 
MIT OpenCourseWare (MIT OCW), a large-scale, Web-based publication of MIT 
faculty’s course materials, enables the open sharing of the faculty’s materials and 
pedagogy. This initiative connects visitors with the syllabi, lecture notes, and calendars 
of 700 courses (Potts, 2003). In addition, most course sites include a subset of other 
materials such as multimedia simulations, problem sets and solutions, past exams, 
reading lists, sample MIT student projects, and a selection of video lectures. Educators 
are encouraged to utilize the materials for curriculum development, and self-learners and 
students may draw upon the materials for self-study or supplementary use. While 
promising, MIT OCW also has its drawbacks. It organizes the information in static web 
pages through which students or viewers must navigate to locate a specific segment. The 
student cannot do a simple ‘keyword search’ to locate specific content. The student is 
offered the ability to select from a master list of courses and then permitted to go through 
the materials manually to find the specific area of interest. 


H. CONCLUSION 


SCORM’s basic idea is to create once and use often. With this guiding principle 
in mind, the focus at this stage of SCORM implementation at NPS should be to first 
foster a sense of sharing. Rather than invest millions into new technologies, NPS should 
better employ technologies it already owns. As described in prior chapters, course 
conversion is one of the major challenges in implementing SCORM. Instead of spending 
countless hours designing new material that may or may not be SCORM-conformant, or 
having the courses go through a conversion process, why not use that which has already 


been created and is ready for sharing? 


An LMS is appropriate for those students/users that are enrolled in the class. 
However, individuals who are interested in accessing the information but are not 
registered cannot have easy access to it, nor are they aware of its existence. These 
individuals do not need the full spectrum of services within an LMS, such as grades, 
progress evaluation, participation records, or tracked learning. They merely want the 


benefit of access to the content. 
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Most professors do not want to be content designers; they want to be teachers. 
They are educators, not instructional designers/technicians. Their expertise, and thus 
their true value, lies in their ability to breathe life into concepts and theories. A CMS 
would not require learning new technologies, unlike any LCMS. The professor may need 
to spend a great deal of time to learn the new technology just to be able to use an LCMS. 
It may not add much value to implement the new technologies into particular courses. A 
CMS would allow sharing of information created by the technologies already known to 
the professors. Even if the conversion process were simplified through templates and 
storyboards, the new converted material would still be shackled and caged within the 
LCMS that created it. To extract the material, the institution would need to make the 


LCMS available to everyone that needed access to the content. 


This thesis proposes a dynamic Content Management System for the Naval 
Postgraduate School and will be discussed further in the next chapter. It addresses the 
first user requirement of SCORM: make content sharable. A CMS offers the needed 
level of granularity to organize information for easy identification and extraction. It does 
not force or demand such a fine granularity as to remove context from the learning 
content. A dynamic CMS would allow a ‘keyword search’ of content in addition to 
manual navigation. Blackboard is currently developing such a feature. The proposed 
CMS would have the ability to update itself dynamically as new content is placed within 
it. It also maintains the integrity of the many relationships in order to maintain the 


context of the material. 
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VI. CONTENT MANAGEMENT SYSTEM DATABASE 


A. INTRODUCTION 


A Content Management System (CMS) is a single database designed to manage 
all content within an organization. The prototype CMS discussed in this chapter was 
designed and constructed using a relational database. 


B. SEARCH 


This database features two paths by which to capture the information that resides 
in the subsections. A student at NPS, as well as users outside the NPS community, may 
find any material stored within the database. This database is not as restrictive as 
Blackboard, which limits access to certain authorized parties and content. This database 
will act as a central repository, available to everyone with access to the Internet. 


1. Course 


The first path is through “search by course,” navigated using the following path: 
course > chapter > topic > subsection. This path should only be used by authors/ 
professors and students from NPS who are familiar with the content layout, enabling 
them to navigate efficiently. 


2s Keyword 


The second path is through “search by keyword,” navigated using the following 
path: keywords > paragraph & images. This path is open to users unfamiliar with 
navigation through the first path. However, both types of users may use either path. 
Users type keywords to capture the specific pieces of information they need (paragraph & 
images). 


C. ALTER DATABASE: INSERT, UPDATE AND DELETE 


Using forms, only professors/authors may insert, update, or delete database 
content. No changes are made to the database structure. Authorized users at this level 
must be registered by an administrator to have full write and modify privileges. To alter 
the database, the professor must first login to provide identification and authentication, 
then navigates via the ‘course’ pathway to find the section. The “Insert,” “Update” and 


“Delete” functions are restricted to those users granted privileges by the administrator. 
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The pathway includes the following: Course > Subject > Topic > Subsection. Actual 
content resides in the “Subsection”; sections preceding it contain only the name and 
description of each section but do not contain any data. 


1. Insert 


The “Insert” function allows the addition of new courses, subjects, topics, and 
subsections. A new “Course” field requires the course code, name, and description. The 
“Subject” and “Topic” fields require name and description. The ‘Subsection’ field 
requires category, header, description, content, and keywords. 


2. Update 


The “Update” function allows editing of existing content. Course, Subject, and 
Topic metadata only are updated. Actual content editing takes place in the Subsection. 
The forms are the same as those of the “Insert” function. 


3. Delete 


The “Delete” function allows the removal of existing content. As a control and 
safeguard mechanism, and to prevent accidental deletions, upper-level categories such as 
Course, Subject, and Topic cannot be deleted until all content in the Subsection has been 
removed. To protect referenced content, a course that is referenced by other courses 
cannot be deleted. 


D. ADMINISTRATOR: AUTHORS, PROFESSORS AND CATEGORIES 


Only the administrator is authorized to add and remove authors/professors. The 
administrator function allows for the addition, update, and deletion of user records, 
course categories, and professors. A professor must first be entered as a user and then 
classified as a professor to be assigned to courses in other administrator fields. 


1. Authors/Users 


The administrator may add new users/authors to the database via this form. The 
registration fields include First Name, Last Name, Office Phone, Office Room, Email 


Address, User Name/ID, Password, and User group. 
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2. Professors 


The administrator can add new professors or associate current professors to 
courses to authorize modification of course content. The Professor form requires a 
selection from a list of Users/Authors, a list of courses, and a room assignment. 


a Categories 


In the Categories section, courses are grouped for easy identification. Various 
courses are compartmentalized under main “umbrella” headings. 


E. RELATIONSHIPS 


The relationships between the entities in the CMS database are illustrated in the 


entity relationship diagram (ERD) in Figure 6. 





Figure 6. _ Entity Relationship Diagram for Content Management System Databasee 
1. Many to Many 


USER < COURSE 


A USER (e.g. Professor) can teach many COURSES; one COURSE can 
be taught by many USERS. 


TOPIC <> SUBSECTION 


A TOPIC can have many SUBSECTIONS; a SUBSECTION can be 
included in many TOPICS. That means that the same SUBSECTION can 
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be used by different TOPICS and eventually by different COURSES. So, 
different USERS can use the same SUBSECTION in their courses (e.g. A 
professor that teaches networks at the CS department can use 
SUBSECTIONS from a network course taught at the IS department). 


SUBSECTION <> GRAPHICS 


A SUBSECTION can have many GRAPHICS. A GRAPHIC can be 
included in many SUBSECTIONS. 


25 One to Many: 


COURSE <> SUBJECT 


A COURSE can have many SUBJECTS. A SUBJECT must be included 
in one COURSE. 


SUBJECT <> TOPIC 


A SUBJECT can have many TOPICS. A TOPIC must be included in one 
SUBJECT. 


CATEGORY <~ SUBSECTION 


A CATEGORY can have many SUBSECTIONS. A SUBSECTION must 
be included in one CATEGORY. 


F. DATABASE SCHEMA 


A database schema defines a database’s structure, its tables, relationships, 
domains, and business rules. This design is the foundation upon which the database and 
applications are built. It describes the data in terms of a data model. In the relational 
model, the schema for a relation specifies its name, the name of each field (or attribute or 
column) and the type of each field (Kroenke, 2002). The schema for the database in this 


study is shown in Figure 7. 
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CMS DATABASE SCHEMA 


USER (userrid, firstName, lastName, officephone, officeRoom, 
email, userName, password, userGroup) 


COURSE (courseid, courseCode, courseName, 
courseDescription) 


TEACH (teachid, professorid (FK), courseid{FK}, room) 


SUBJECT (subjectid, courseid{FkK), subjectName, 
subjectDescription) 


TOPIC (topicid, subjectid{FK), topicName, topicDescription) 


SUBSECTION (subsectionid, categoryid{FK), subsectionName, 
subsectionDescription, content, keywords, author) 


TOPIC_HAS_SUBSECTIONS (thsid, topicid{FK), subsectionid) 


GRAPHIC (graphicid, graphicName, graphicDescription, 
graphicPath, author) 


SUBSECTION_HAS_GRAPHICS (shgid, subsectionid(Fk}, 
graphicid(FK}) 


CATEGORY (categoryid, categoryName, categoryDescription) 


Figure 7. . CMS Schema 
DEVELOPMENT METHODOLOGY 


1. Decide upon the application area and set the business rules/requirements. 


2. Create the Entity-Relationship (E-R) diagram (or Object) using a tool such as 


a table designer. 
3. Extract the tables. 
4. Create the tables in the DBMS. 


5. Decide upon and design the functionality of the site identifying how the 


menus are related to each other and how the different screens are connected. 


This area is distinct area unto itself. Many classes are offered to learn more 


about user interaction with the applications as well as screen and menu 


functionalities. 
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12. 


13. 


The next most important step that may have serious impact on the workflow is 
that of the database design. If the database is not sufficiently robust or 
contains design errors, the problems that will ensue during the development of 
the site will be almost insurmountable. 

Decide on the site’s appearance. Choose the frame structure, if any. Consider 
colors and images. Create images, if necessary, with the use of tools such as 
Macromedia Fireworks or Adobe Photoshop. Using these programs requires 
familiarity with the software, and perhaps entails learning it beforehand. 
Designing and constructing images involves trial and error. 

Create the generic templates and the Cascading Style Sheets (CSS) that will 
be used throughout the site development. The use of templates and CSS is an 
excellent efficiency tool. 


Investigate and remediate technical issues related to servers. 


. Copy the database to the corresponding directory and establish the connection. 


11. 


Build the pages, starting with the simplest, and work incrementally up to the 
more complex. 

Lastly, review and clean all pages to ensure consistency of appearance and 
functionality. 

During all processes, constant attention to all previous work and the effects of 
alterations or new functionalities allows bugs to be discovered early, rather 


than complicating matters to the point of paralysis. 


SOFTWARE USED 


Microsoft Access 

Dreamweaver MX 2004 

IIS Server - Locally 

Active Server Pages (ASP) Technology 
VB Scripting 
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I. CONCLUSION 


This chapter elaborated upon the details of the actual database behind the Content 
Management System. This CMS is designed with the needs of higher education in mind. 
It allows the author/professor to define each category, as opposed to being confined to 


predetermined decomposition that may not be applicable in all instances. 
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VII. CONCLUSIONS & RECOMMENDATIONS 


A. INTRODUCTION 


Understanding the initiative behind Advanced Distributed Learning (ADL), as 
well as the limitations of the Sharable Content Object Reference Model (SCORM) within 
the academic environment, enables a greater appreciation of a Content Management 
System that captures the true spirit of ADL and SCORM. The CMS prototype discussed 
in this thesis strives to provide an alternative to SCORM as well as an intermediary 
process to identify courses most suited to SCORM conversion. However, there remain 
several opportunities for further exploration and development. 

B. RESEARCH SUMMARY 
1. The Need to Manage Content 


This thesis analyzes the Sharable Content Object Reference Model (SCORM) 
within higher education, offering SCORM’s limitations within an application 
environment versus a theoretical/conceptual platform. The thesis also considered 
whether education or training is the environment better suited for implementation of this 


technology. 


One discovery made while addressing the research questions is that from the 
current standards set forth by Advanced Distributed Learning (ADL), SCORM is the 
model /east suited for higher education. SCORM technology will prove of greater utility 
within the Navy Training environment rather than higher education. In their effort to 
share information, higher education institutions would benefit more from a Content 


Management System in conjunction with a Learning Management System. 


Chapters II-VI addressed the limitations of SCORM, provided a comparison of the 
applicability of SCORM within Navy Education and Training as separate entities, and 
provided a prototype of a Content Management System for institutions of higher learning. 


2. Advanced Distributed Learning 


A thorough comprehension of the genesis of the Sharable Content Object 
Reference Model (SCORM) depends upon a better understanding of its parent initiative. 


In 1999, three years after introducing the Advanced Distributed Learning (ADL) 
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initiative, Congress instructed the Department of Defense (DoD) to pay greater attention 
to the utilization of technology in its deployment of education and training materials. 
The original concept called for tailored and individualized education and training. 
Individualized training, in its purest sense, can never be a reality. An alternative is 
material tailored for individual communities that share a need for common education and 
training. 


3. Limitations of SCORM 


The Sharable Content Object Reference Model (SCORM) was just one answer to 
the Advanced Distributed Learning’s (ADL) call for standardization. It has many 
limitations in need of remedy. One limitation, experts argue, is that SCORM’s cookie- 
cutter approach does not furnish a template applicable to every organization that produces 
educational material. SCORM has many problems in the area of architecture (enterprise- 
wide implementation), clearer definition of its Objects, as well as its limited applicability 
to certain types of educational material. SCORM cannot meet the needs of higher 
education. It is not the panacea for information categorization and sharing. 


4. Education Versus Training 


The terms “education” and “training” are frequently used interchangeably without 
considering their actual dissimilarities. The military especially often treats the terms as 
synonyms, despite the fact that each concept requires a different approach. There is 
indeed a distinction between education and training. By illustrating SCORM’s 
applicability or inapplicability, the distinction can be better examined. While education 
concerns itself with the gathering of facts, concepts, theories, events, and principles, 
training addresses the need for a acquiring a specific skill. 


35 Content Management 


Because the content universe offers infinitely diverse material, a traditional 
Learning Management System (LMS) may not be the ultimate solution to content 
management. Learning Content Management Systems and Content Management 
Systems complement and sometimes even substitute for an LMS. An LMS is appropriate 
for those students/users/guests that are enrolled/registered/invited in the class. However, 


individuals who are interested in accessing the information but are not registered cannot 
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have easy access to it, nor are they aware of its existence. These individuals do not need 
the full spectrum of services within an LMS, such as grades, progress evaluation, 
participation records, or tracked learning. They merely want the benefit of access to the 


content. 


Most professors do not want to be content designers; they want to be teachers. 
They are educators, not instructional designers/technicians. Their expertise, and thus 
their true value, lies in their ability to breathe life into concepts and theories. A CMS 
would not require learning new technologies, unlike any LCMS. It may not add much 
value to implement the new technologies into particular courses. A CMS would allow 
sharing of information created by the technologies already known to the professors. Even 
if the conversion process were simplified through templates and storyboards, the newly 
converted material would still be shackled and caged within the LCMS that created it. To 
extract the material, the institution would need to make the LCMS available to everyone 


that needed access to the content. 


This thesis proposes a dynamic Content Management System for the Naval 
Postgraduate School. It addresses the first user requirement of SCORM: make content 
sharable. A CMS offers the needed level of granularity to organize information for easy 
identification and extraction. It does not force or demand such a fine granularity as to 
remove context from the learning content. A dynamic CMS would allow a ‘keyword 
search’ of content in addition to manual navigation. The proposed CMS would have the 
ability to update itself dynamically as new content is placed within it. It also maintains 
the integrity of the many relationships in order to maintain the context of the material. 

C. LESSONS LEARNED 
1. Web-Enabled Databases 


Building a web-enabled database introduced many challenges. Database creation 
relies upon a thorough knowledge of web page creation in addition to database 
proficiency. The use of Macromedia’s Dreamweaver or similar web authoring programs 
was often complicated. In Dreamweaver, once an artifact is created with functionalities, 
its removal becomes rather cumbersome. Even though it is deleted, the corresponding 


code or pieces of it remain within the page. Finding these remnants is not a simple task 
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as the code is scattered throughout the page. Occasionally this forced the reconstruction 
of the page from scratch because all of the little shards of code could not be found and 
extracted from the page to allow it to properly function, and proved an inefficient use of 


time. 


Dreamweaver, similar to other programs, has reserved characters with predefined 
functionalities. This can be likened to language development tools that have reserved 
words. In one example, a page used the symbol # instead of the word “number.” This 
minor oversight required hours of investigation to reveal that the pound symbol was 
actually a placeholder and could not be used to represent any other values. 


2. Extensible Markup Language (XML) 


Insufficient resident expertise frustrated the exploration and development of a 
purely XML database. Though native XML databases offer the advantage of speed over 
traditional databases, it is too new to be of practical use at this stage. XML is not just an 
extension of HTML. The complexities of this emerging technology require extensive 
training. A year’s worth of additional courses in XML or XML-oriented topics would be 
helpful and necessary to employ the rich potential of XML. It is beyond the focus of this 
thesis to expound further upon the strengths and weaknesses of employing purely XML 
databases. 

D. FUTURE RESEARCH 

1. Blackboard 


Blackboard can incorporate much of the functionality of the NPS Content 
Management System (CMS). Blackboard can provide the Learning Management System 
functionalities such as discussion boards and tracking of student progress. By 
incorporating the dynamic search capability of the CMS into Blackboard, content can be 
accessed and retrieved by all users, as opposed to only registered guests or enrolled 


students and faculty. 


Through working in concert with Blackboard, the CMS prevents a great deal of 
duplication. It eliminates the need for redundant use of server space for the same content. 


The opposite suggestion would be to recommend a mirror site. 
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2. Automation Versus Hard-Coding 


Data entry into the CMS at this stage is all manual and is accomplished via “hard- 
coding.” Data is taken from its current location or format and manually inserted into 
specific fields within the CMS. A mechanism can be established and developed to allow 


the automatic pull of information into the database. 


An area that may benefit from automation would be the keyword entry to enable 
search of content. Instead of forcing the author to categorize content by keyword, a 
means may be devised to allow an automatic keyword generator by performing an 
algorithm of the content. The algorithm may automatically capture title words, 
subsection headers, and words in the first sentence of paragraph. Another approach to 
this topic would be a more dynamic and efficient keyword search that searches the entire 
content as opposed to prefabricated keywords that may not truly capture or represent all 
the elements within the content. 


3. Image Mapping & Import 


The manner in which images are imported into the CMS is inefficient. First, the 
image must be manually placed within the images folder of the specific class. Second, 
the path to the image must be inserted within the source code of the HTML page. Simple 
typographical errors can prevent the image from being displayed. 


E. CONCLUSION 


DoD’s original design for ADL did not envision a complete overhaul of the 
education and training model. Its desire was to enable the widest dissemination and 
sharing of the greatest amount of information and learning as practicable. In this effort, 
the quantity and quality of the education and training materials were not to suffer at the 
hands of technology or the need for wider distribution. Along the way, ADL has been 
met with technological, cultural, financial, and policy/regulatory difficulties. Having this 
understanding of the vision behind ADL will allow a deeper understanding of the 
military’s expectations regarding education and training in the next decade. Moreover, 
this thesis suggests the military’s perspective on some of the differences between 
education and training. ADL envisioned an environment that embraced the spirit of 


education and the technologies to further and enhance it. 
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SCORM’s basic idea is to create once and use often. With this guiding principle 
in mind, the focus at this stage of SCORM implementation at NPS should be to first 
foster a sense of sharing. Rather than invest millions into new technologies, NPS should 
better employ technologies it already owns. Course conversion is one of the major 
challenges in implementing SCORM. Instead of spending countless hours designing new 
material that may or may not be SCORM-conformant, or putting the courses through a 
conversion process, why not use that which has already been created and is ready for 
sharing? SCORM is too engrossed in technology and insufficiently so on actual 
education. The Naval Postgraduate School Content Management System undoubtedly 
and unapologetically deviates from SCORM’s technology-based approach to better focus 


on information dissemination and knowledge sharing. 
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APPENDIX A. CONTENT MANAGEMENT SYSTEM DATA 
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APPENDIX B. CONTENT MANAGEMENT SYSTEM ENTITY- 
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59 


THIS PAGE INTENTIONALLY LEFT BLANK 


60 


APPENDIX C. CONTENT MANAGEMENT SYSTEM DATABASE 
SCHEMA WITH ATTRIBUTES 
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APPENDIX E. CONTENT MANAGEMENT SYSTEM XML CODE 


<?xml version="1.0" encoding="UTF-8" ?> 





- <il-- 

[lias Zachée a 
--> 
<Course  courseCode="is3502" courseName="Networks" _ instructor="Dale, 
Courtney'"> 


<TableOfContents> 

<Subject SubjectTitle="Syllabus" /> 

<Subject SubjectTitle="Chapter 01: Introduction to Networking'> 
<Topic TopicTitle="Elements Common to All Server-Based Networks'> 
<Subsection subsectionTitle="Networking Basics"> 


I[CDATA[ 


<HTML> 
<HEAD> 
LET Le 
<b>Elements Common to All Server-Based Networks</b> 


</TITLE> 
</HEAD> 


<BODY> 
<p> 
<b>Networking Basics</b> 


</p> 


<p>Before you can begin talking about networking it is vital that you 


understand the definition. A computer Network at the most basic level is 
two or more computers and/or other devices that are connected by some 
type of transmission media. This media will usually be either cabling or 
wire; however, wireless networks are growing in popularity. The biggest 
advantage to using a computer network is the ease of sharing information 
between computers. Another great advantage of networking is the ability to 
centrally administer the hardware and software. Additionally computers 
may be connected to mainframe computers, modems, CD-ROMs, printers, 
plotters, fax machines, or phone systems. Computers on any network may 
communicate through wires, cables, radio waves, and infrared or satellite 
links.</p> 


- <p> 


The simplest form of a network in use today is a 


<b>peer-to-peer</b> 


network. A peer-to-peer network is not normally used when there is the 
need for more than 10 computers to be connected to the network. When 
using peer-to-peer communication each computer is able to talk directly to 
other computers through one cable; this means that no single computer on 
the network has more authority than any other computer on the network. It 
is important to realize that each computer in a peer-to-peer network can act 
as a client or a server. In a peer-to-peer network each computer user acts 
as a network administrator for his or her own computer. For all intents and 
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purposes this type of a network should not be used if security is a concern 
of the company. It is also significant to note that the more computers that 
are added to a peer-to-peer network, the slower the network will operate. 
</p> 
- <p> 
<img src="Images/is3502_images/fig01_02_p_to_p.gif" /> 
</p> 
- <p> 
A 
<b>local area network (LAN) </b> 
is a network of computers and other devices that are confined to a relatively 
small area, such as a building or an office. LANs can also in some cases be 
connected throughout multiple buildings. In general, the term LAN can be 
used unless you have crossed a main thoroughfare. A peer-to-peer network 
is an example of a simple LAN. More complex LANs are server-based and 
rely on a file server. These types of networks are commonly called 
client/server networks. 
</p> 
- <p> 
A network that connects two or more geographically distinct LANs is labeled 
a 
<b>wide area network (WAN)</b> 
. WANs that connect LANs across a city or a campus (generally 30 miles or 
less) are sometimes called metropolitan networks, or MANs. It is worth 
mentioning that MANs and WANs use the same type of technology. 
</p> 
</BODY> 
</HTML> 
]] 
</Subsection> 
</Topic> 
<Topic TopicTitle="Networking Elements" /> 
<Topic TopicTitle="How Networks are Used" /> 
<Topic TopicTitle="Mastering the Technical Challenges" /> 
<Topic TopicTitle="Developing Your 'Soft Skills" /> 
<Topic TopicTitle="Pursuing a Certification" /> 
<Topic TopicTitle="Finding a Job in Networking" /> 
<Topic TopicTitle="Joining Professional Organizations" /> 
</Subject> 


<Subject SubjectTitle="Chapter 02: 
<Subject SubjectTitle="Chapter O03: 
<Subject SubjectTitle="Chapter 04: 
<Subject SubjectTitle="Chapter O05: 
<Subject SubjectTitle="Chapter O06: 
<Subject SubjectTitle="Chapter 07: 
<Subject SubjectTitle="Chapter O08: 
<Subject SubjectTitle="Chapter 10: 
<Subject SubjectTitle="Chapter 11: 
<Subject SubjectTitle="Chapter 12: 
<Subject SubjectTitle="Chapter 13: 


Networking Standards and the OSI Model" /> 
Network Protocols" /> 

Transmission Basics and Networking Med" /> 
Physical and Logical Topologies" /> 
Networking Hardware" /> 

WANs and Remote Connectivity" /> 

Network Operating Systems & Windows" /> 
Networking with UNIX" /> 

Networking With TCP/IP & the Internet" /> 
Troubleshooting Network Problems" /> 
Maintaining and Upgrading a Network" /> 
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<Subject SubjectTitle="Chapter 14: Ensuring Integrity and Availability" /> 
<Subject SubjectTitle="Chapter 15: Network Security" /> 
<Subject SubjectTitle="Chapter 16: Managing Network Design & Implement" /> 
</TableOfContents> 
</Course> 
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APPENDIX F. CONTENT MANAGEMENT SYSTEM CODE 
Number File Name Page # 

1. Confirm_Image.asp 3 

2 Course Request.asp 10 
a. DLStylesheet.css 14 
4. Form Add New Course.asp 15 
5. Form _Add_Subject.asp 22 
6. Form _Add_Topic.asp 30 
ef Form Course _Master.asp 37 
8. Form Delete Category.asp 44 
9. Form Delete Course.asp 51 
10. Form Delete Image.asp 58 
11. Form Delete Subject.asp 65 
12. Form Delete Subsection.asp 72 
13. Form Delete _Teach.asp 79 
14. Form Delete _Topic.asp 86 
15. Form Delete User.asp 93 
16. Form_Image_Master.asp 101 
17. Form Input _Subsection.asp 108 
18. Form_Insert_Category.asp 117 
19. Form _Insert_Image.asp 124 
20. Form Insert_Teach.asp 132 
21. Form Master Admin.asp 140 
22. Form Master _Category.asp 145 
23. Form _Master_Teach.asp 150 
24. Form Master User.asp 156 
25. Form Subject Master.asp 161 
26. Form Subsection_Master.asp 168 
pap Form Topic _Master.asp 175 
28. Form Update Category.asp 182 
29. Form Update _Course.asp 190 
30. Form Update Image.asp 198 
31. Form Update Subject.asp 206 
32. Form_Update_Teach.asp 213 
33. Form Update Topic.asp 220 
34. Form Update User.asp 229 
35. Home_Page.asp 237 
36. Image Detail Visitor.asp 240 
Sts Image Result.asp 244 
38. Image Result All Nps.asp 248 
39. Images Result Visitor.asp 253 
40. Keyword Request.asp 258 
41. Keyword Result.asp 262 
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Number File Name Page # 
42. login.asp 274 
43. login _failed.asp 279 
44. registration _failed.asp 282 
45. Search.asp 285 
46. Subject _Request.asp 288 
47. Subsection RequestNPS.asp 292 
48. Subsection Results.asp 296 
49. Testl_ Confirm.asp 303 
50. Template.asp 310 
51. Test_ Form Update Subsection.asp 313 
52, Topic Request.asp 321 
53. User_Input_Form.asp 325 
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1. Confirm_Image.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 

' *** Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _ columns 
Dim MM _typeArray 
Dim MM_formVal 
Dim MM _delim 

Dim MM_altVal 

Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & aes 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


fal 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Subsection_Has_ Graphics" 

MM editRedirectUrl = "Form_Image_Master.asp" 

MM fieldsStr = "subsectionid|value|graphicid|value" 

MM columnsStr = "subsectionid|none,none,NULL|graphicid|none,none, NULL" 


"create the MM_fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM _i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_ fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 

MM tableValues = "" 

MM_dbValues = '"" 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
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If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
Elself (MM_delim ="") Then ' escape quotes 
MM _formVal ="" & Replace(MM_formVal,""",""™) & "" 
Else 
MM_formVal =MM _ delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM _dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM _editQuery = "insert into" & MM _ editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 


If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> '"") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_maxGraphicid _MMColParam 

rs_maxGraphicid_MMColParam = "izacharo" 

If (Session("MM_UserName") <> '"") Then 
rs_maxGraphicid _MMColParam = Session("MM_ UserName") 

End If 

%> 

<% 

Dim rs_maxGraphicid 
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Dim rs_maxGraphicid_numRows 


Set rs_maxGraphicid = Server.CreateObject("ADODB.Recordset") 

rs_maxGraphicid.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_maxGraphicid.Source = "SELECT graphicid FROM Graphic WHERE 
graphicid=(SELECT MAX(graphicid) FROM Graphic WHERE author = '™ + 
Replace(rs_maxGraphicid _MMColParam, "", """) +)" 

rs_maxGraphicid.CursorType = 0 

rs_maxGraphicid.CursorLocation = 2 

rs_maxGraphicid.LockType = 1 

rs_maxGraphicid.Open() 


rs_maxGraphicid_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Confirm Image</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<I-- 
a:link { 
color: #CC3300; 
j 


a:visited { 

color: #CC3399; 
: 
a:hover { 

color: #000066; 
} 


a:active { 
color: #339900; 
} 


Stylel { 
color: #FF0000; 
font-weight: bold; 


} 


ee 
</style></head> 
<body> 
<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 
<tr> 
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<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 


(= 


rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Confirm Image Insertion </h3> 
<hr /> 
<form name="form1" id="form 1" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="50%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="80%"><input name="subsectionid" type="hidden" 
id="subsectionid" value="<%= Request.QueryString("subsectionid") %>" /> 


<input name="graphicid" type="hidden" id="graphicid" 
value="<%=(rs_maxGraphicid.Fields.Item("graphicid"). Value)%>" /> 

<span class="style1">***Please Comfirm your Image 
Insertion***</span> </td> 

<td width="20%"><input type="submit" name="Submit" 


value="Confirm" /></td> 
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</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="form1"> 

</form> <p align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_maxGraphicid.Close() 
Set rs_maxGraphicid = Nothing 
%> 


fai 


2. Course_Request.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 


<% 
Dim searchMethod 


searchMethod = Request.QueryString("radiobutton") 
If searchMethod = 1 Then 
Response.Redirect("Keyword_Request.asp") 


End If 


%> 

<% 

Dim Courses 

Dim Courses _numRows 


Set Courses = Server.CreateObject("ADODB.Recordset") 

Courses.ActiveConnection = MM_conn_DistanceLearning STRING 

Courses.Source = "SELECT courseid, courseCode, courseName FROM Course 
ORDER BY courseCode ASC" 

Courses.CursorType = 0 

Courses.CursorLocation = 2 

Courses.LockType = 1 

Courses.Open() 


Courses _numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0. Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Course Request</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center">Course Request</h3> 
<hr /> = </td> 
</tr> 
<tr> 
<td><form name="frmCourse" id="frmCourse' 
action="Subject_Request.asp"> 
<div align="center"><br /> 
Select Course: 
<select name="courseid" id="courseid"> 
<% 
While (NOT Courses.EOF) 
%> 
<option 
value="<%=(Courses.Fields.Item("courseid"). Value)%>"><%=(Courses.Fields.Item("co 
urseCode"). Value)%></option> 
<% 
Courses.MoveNext() 
Wend 


method="post" 


80 


If (Courses.CursorType > 0) Then 

Courses.MoveFirst 
Else 

Courses.Requery 
End If 
%> 

</select> 
<input type="submit" name="Submit" value="Submit" /> 
</div> 
</form></td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
Courses.Close() 
Set Courses = Nothing 
%> 
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3. DLStylesheet.css 


body { 
font-family: Verdana, Arial, Helvetica, sans-serif; 
font-size: 10pt; 
color: #000000; 
background-color: #DEDEBC; 


} 

h3 { 
font-size: 1 6pt; 
color: #3300CC; 
font-weight: bold; 
font-family: "Times New Roman", Times, serif; 

} 

hl { 
font-size: 24pt; 
color: #FFO000; 
font-weight: bold; 

} 

h2 { 
font-size: 18pt; 
font-weight: bold; 
color: #FFFF00; 

} 
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4. Form_Add_New_Course.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
'**%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _ editRedirectUrl 
Dim MM _editColumn 
Dim MM_recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 
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Dim MM_formVal 
Dim MM_delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 
MM editAction = MM editAction & i & 


Server. HTMLEncode(Request.QueryString) 


"courseCode|',none,"|courseName|',none,"|courseDescription|',none, 


End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM_conn_DistanceLearning STRING 

MM editTable = "Course" 

MM editRedirectUrl = "Form Course_Master.asp" 

MM fieldsStr = "courseCode|value|courseName|value|courseDescription|value" 
MM columnsStr = 


my 


"create the MM_fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 


Request.QueryString <> "") Then 


MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
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End If 
End If 


End If 

%> 

<% 

'** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM._dbValues = "" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
ElseIf (MM_delim="") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into " & MM _editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 
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If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Insert New Course</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


ao 
</style> 
</head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Insert New Course </h3> 
<hr /> <form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="form1" id="form1"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Course Code </td> 
<td><input name="courseCode" type="text" id="courseCode" /></td> 
</tr> 
<tr> 
<td>Course Name </td> 
<td><input name="courseName" type="text" id="courseName" /></td> 


</tr> 
<tr> 
<td>Course Description </td> 
<td><textarea name="courseDescription" cols="50" 
id="courseDescription"></textarea></td> 
</tr> 
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<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="form1"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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5. Form_Add_Subject.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Subject" 

MM editRedirectUrl = "Form _Subject_Master.asp" 

MM fieldsStr = "subjectName|value|subjectDescription|value|courseid|value" 

MM columnsStr = 
"subjectName|',none,"|subjectDescription|',none,"|courseid|jnone,none, NULL" 


"create the MM_ fields and MM_ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
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MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM_dbValues = '"" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
Elself (MM_delim="") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™") & " 
Else 
MM_formVal =MM_ delim + MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM _editQuery = "insert into" & MM _ editTable & "(" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 
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If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_course _MMColParam 

rs_course]MMColParam = "1" 

If (Request.QueryString("courseid") <> "") Then 
rs_ course MMColParam = Request.QueryString("courseid") 

End If 

%> 

<% 

Dim rs_course 

Dim rs_course_numRows 


Set rs_course = Server.CreateObject("ADODB.Recordset") 

rs_course.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_course.Source = "SELECT * FROM Course WHERE courseid = " + 
Replace(rs_course _MMColParam, '"", """) +" 

rs_course.CursorType = 0 

rs_course.CursorLocation = 2 

rs_course.LockType = | 

rs_course.Open() 


rs_course_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Insert Subject to Course</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 
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<!-- 
a:link { 

color: #CC3300; 
} 


a:visited { 

color: #CC3399; 
; 
a:hover { 

color: #000066; 
} 


a:active { 
color: #339900; 


} 
.stylel {color: #CC3300} 
es 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<!-- 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errorst+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 'tmin+' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 


} 
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/|--> 

</script> 

</head> 

<body 
onload="MM_validateForm('subjectName2',",'R','subjectDescription’,",'R');return 
document.MM_returnValue"> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Insert Subject into :<span 


class="stylel"><%=(rs_course.Fields.Item("courseCode"). Value)%></span> 
&nbsp;Course</h3> 
<hr /> <form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="form1" id="form1"> 
<table width="95%"_ border="1" cellspacing="0" cellpadding="3"> 
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<tr> 
<td width="24%">Subject Name </td> 


<td width="76%"><input name="subjectName" type="text" 
id="subjectName2" /></td> 
</tr> 
<tr> 
<td>Subject Description </td> 
<td><textarea name="subjectDescription" cols="50" 
id="subjectDescription"></textarea></td> 
</tr> 
<tr> 


<td><input name="courseid" type="hidden" id="courseid" value="<%= 
Request.QueryString("courseid") %>" /></td> 
<td><input type="submit" name="Submit" value="Submit" /></td> 
</tr> 
</table> 
<input type="hidden" name="MM_ insert" value="form1"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_course.Close() 
Set rs_course = Nothing 
%> 
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6. Form_Add_Topic.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "frm_topic") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Topic" 

MM editRedirectUrl = "Form _Topic_Master.asp" 

MM fieldsStr = "topicName|value|topicDescription|value|subjectid|value" 

MM columnsStr = 
"topicName|',none,"|topicDescription|',none,"|subjectidjnone,none, NULL" 


"create the MM_ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
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MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM_dbValues = '"" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
Elself (MM_delim="") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™") & " 
Else 
MM_formVal =MM_ delim + MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into" & MM _ editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 
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If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_subject_ MMColParam 

rs_subject_ MMColParam = "1" 

If (Request.QueryString("subjectid") <> '"") Then 
rs_subject_ MMColParam = Request.QueryString("subjectid") 

End If 

%> 

<% 

Dim rs_subject 

Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 

rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subject.Source = "SELECT * FROM Subject WHERE subjectid = " + 
Replace(rs_subject_ MMColParam, "", """) +" 

rs_subject.CursorType = 0 

rs_subject.CursorLocation = 2 

rs_subject.LockType = 1 

rs_subject.Open() 


rs_subject_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning:Insert Topic to Subject</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 
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<!-- 
a:link { 

color: #CC3300; 
} 


a:visited { 

color: #CC3399; 
; 
a:hover { 

color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #CC3300} 

.style2 {color: #3300CC} 

ae 

</style> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


102 


</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveFlash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Insert Topic to: <span 


class="stylel"><%=(rs_subject.Fields.Item("subjectName"). Value)%>&nbsp;<span 
class="style2">Subject</span></span></h3> 
<hr /> 
<form name="frm_ topic" id="frm_topic" method="POST" 
action="<%=MM_editAction%>"> 
<table width="95%"_ border="1" cellspacing="0" cellpadding="3"> 
<tr> 
<td>Topic Name </td> 
<td><input name="topicName" type="text" id="topicName" size="60" 
/></td> 
</tr> 
<tr> 
<td>Topic Description </td> 
<td><textarea name="topicDescription" cols="60" rows="5" 
id="topicDescription"></textarea></td> 
</tr> 
<tr> 
<td><input name="subjectid" type="hidden" id="subjectid" value="<%= 
Request.QueryString("subjectid") %>" /></td> 
<td><input name="Submit" type="submit" value="Insert" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="frm_topic"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_subject.Close() 
Set rs_subject = Nothing 
%> 
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7. Form_Course_Master.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 
Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 
& Server. URLEncode(MM_ referrer) 
Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
Dim searchMethod 


searchMethod = Request.QueryString("radiobutton") 
If searchMethod = 1 Then 
Response.Redirect("Keyword_Request.asp") 


End If 


%> 

<% 

Dim Courses 

Dim Courses _numRows 


Set Courses = Server.CreateObject("ADODB.Recordset") 

Courses.ActiveConnection = MM_conn_DistanceLearning STRING 

Courses.Source = "SELECT courseid, courseCode, courseName FROM Course 
ORDER BY courseCode ASC" 

Courses.CursorType = 0 
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Courses.CursorLocation = 2 
Courses.LockType = 1 
Courses.Open() 


Courses _numRows = 0 

%> 

<% 

Dim rs_welcome__MMColParam 

rs_ welcome —_MMColParam = "1" 

If (Session("MM_ Username") <> "") Then 
rs_ welcome _MMColParam = Session("MM_ Username") 

End If 

%> 

<% 

Dim rs_welcome 

Dim rs_welcome_numRows 


Set rs welcome = Server.CreateObject("ADODB.Recordset") 

rs_welcome.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_welcome.Source = "SELECT firstName FROM User WHERE userName = " 
+ Replace(rs_welcome__MMColParam, "", """) + '"™" 

rs_welcome.CursorType = 0 

rs_welcome.CursorLocation = 2 

rs_welcome.LockType = 1 

rs_welcome.Open() 


rs_welcome_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Course Request</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

</-- 

.style3 {color: #336600} 

.style4 {color: #FF0000} 

.Sstyle5 {color: #3300CC} 

= 

</style> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 
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<tr> 


<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 


107 


<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3—s align="center" ~—class="style4"><span 


class="style5">Welcome</span>&nbsp;<%=(rs_welcome.Fields.Item("firstName"). Valu 
e)%>!</h3> 
<h3 align="center"><span class="style3">Course</span> Master Form </h3> 
<hr /> = </td> 
</tr> 
<tr> 
<td><form name="frmCourse" id="frmCourse" method="get" 
action="Form_ Subject _Master.asp"> 
<div align="center"> 
<table width="95%"_ border="1" cellspacing="0" cellpadding="3"> 
<tr> 
<td width="44%"><div align="left"> 
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<p><strong> Existing Course Content 
</strong><br />(Insert, Modify, Delete content ONLY )<strong> <br /> 
</strong></p> 
</div></td> 
<td width="56%"><div align="left"> 
<select name="courseid" id="courseid"> 


<% 
While (NOT Courses.EOF) 
%> 

<option 


value="<%=(Courses.Fields.Item("courseid"). Value)%>"><%=(Courses.Fields.Item("co 
urseCode"). Value)%></option> 
<% 
Courses.MoveNext() 
Wend 
If (Courses.CursorType > 0) Then 
Courses.MoveFirst 


Else 
Courses.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Continue" /> 
</div></td> 
</tr> 
</table> 
</div> 
</form> 
<form name="form1" id="form1" method="post" 
action="Form Add New_Course.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="44%"><strong>Insert New Course Record 
</strong><br />(Course Name, Description &amp; Code) 
<br /> </td> 
<td width="56%"> <input type="submit" name="Submit5" 
value="Insert" /></td></tr> 
</table> 
</form> 
<form name="form2" id="form2" method="get" 
action="Form_ Update _Course.asp"> 
<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="44%"><strong>Update Existing Course Record 
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</strong><br />(Course Name, Description &amp; Code) </td> 
<td width="56%"><select name="courseid" id="courseid"> 


<% 
While (NOT Courses.EOF) 
%> 

<option 


value="<%=(Courses.Fields.Item("courseid"). Value)%>"><%=(Courses.Fields.Item("co 
urseCode"). Value)%></option> 
<% 
Courses.MoveNext() 
Wend 
If (Courses.CursorType > 0) Then 
Courses.MoveFirst 


Else 
Courses.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit2" value="Update" /></td> 
</tr> 
</table> 
</form> 
<form name="form3" id="form3" method="get" 
action="Form_Delete_Course.asp"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="44%"><strong>Delete Existing Course Record 
</strong><br /> (Course Name, Description &amp; Code) </td> 
<td width="56%"><select name="courseid" id="courseid"> 
<% 
While (NOT Courses.EOF) 
%> 
<option 


value="<%=(Courses.Fields.Item("courseid"). Value)%>"><%=(Courses.Fields.Item("co 
urseCode"). Value)%></option> 
<% 
Courses.MoveNext() 
Wend 
If (Courses.CursorType > 0) Then 
Courses.MoveFirst 
Else 
Courses.Requery 
End If 
%> 
</select> 
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<input type="submit" name="Submit3" value="Delete" /></td> 
</tr> 
</table> 
</form> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
<p>&nbsp;</p></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
Courses.Close() 
Set Courses = Nothing 
%> 
<% 
rs_welcome.Close() 
Set rs_welcome = Nothing 
%> 
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8. Form_Delete_Category.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
'**%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM_recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 
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Dim MM_formVal 
Dim MM_delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & i & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) 
<> ase) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Category" 

MM editColumn = "categoryid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Master_Category.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

' *** Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_category _MMColParam 

rs_category MMColParam = "1" 

If (Request.QueryString("categoryid") <> "") Then 
rs_category _MMColParam = Request.QueryString("categoryid") 

End If 

%> 

<% 

Dim rs_category 

Dim rs_category_numRows 


Set rs_category = Server.CreateObject("ADODB.Recordset") 

rs_category.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_category.Source = "SELECT * FROM Category WHERE categoryid = " + 
Replace(rs_category _MMColParam, '""", """) +" 

rs_category.CursorType = 0 

rs_category.CursorLocation = 2 

rs_category.LockType = 1 

rs_category.Open() 


rs_category_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete Category Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 
.stylel {color: #CC0000} 
.style2 {color: #FF0000} 
Style3 { 

color: #336633; 

font-weight: bold; 
} 
ace 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
</-- 
function MM_goToURL() { //v3.0 

var 1, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 
} 
/|--> 
</script> 
</head> 
<body> 
<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
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</tr> 


</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 


classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete Category Record: <span 
class="stylel"><%=(rs_category.Fields.Item("categoryName"). Value)%></span></h3> 
<hr /> 
<p align="center"><span class="style2">***Are you sure you want to Delete 
the Category Record:</span> <span 


class="style3"><%=(rs_category.Fields.Item("categoryName"). Value)%></span> 
?<span class="style2">***</span> </p> 
<p align="center"> 
<input name="Submit2" type="submit" 
onclick="MM_goToURL(‘parent','"Form_ Master_Category.asp');return 
document.MM_returnValue" value="Cancel" /> 


</p> <form name="forml" id="form1l" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Category Name </td> 


<td><input name="categoryName" type="text" id="categoryName" 
value="<%=(rs_category.Fields.Item("categoryName"). Value)%>" size="60" /></td> 
</tr> 
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<tr> 
<td>Category Description </td> 
<td><textarea name="categoryDescription" cols="60" = rows="5" 
id="categoryDescription"><%=(rs_category.Fields.Item("categoryDescription"). Value)% 
></textarea></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input type="submit" name="Submit" value="Delete" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ delete" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_category.Fields.Item("categoryid").Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_category.Close() 
Set rs_category = Nothing 
%> 
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9. Form_Delete_Course.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailed(URL & MM _qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
'**%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM_recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 
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Dim MM_formVal 
Dim MM_delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & i & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) 
<> ase) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Course" 

MM _editColumn = "courseid" 

MM recordId = "" + Request.Form("MM_recordId") + "" 

MM editRedirectUrl = "Form Course Master.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> '"" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

' *** Delete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_course _MMColParam 

rs_course MMColParam = "1" 

If (Request.QueryString("courseid") <> "") Then 
rs_ course MMColParam = Request.QueryString("courseid") 

End If 

%> 

<% 

Dim rs_course 

Dim rs_course_numRows 


Set rs_course = Server.CreateObject("ADODB.Recordset") 

rs_course.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_course.Source = "SELECT * FROM Course WHERE courseid = " + 
Replace(rs_course _MMColParam, '"", """) +" 

rs_course.CursorType = 0 

rs_course.CursorLocation = 2 

rs_course.LockType = | 

rs_course.Open() 


rs_course_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete Course</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

stylel {color: #CC3300} 

ae 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_goToURL() { //v3.0 
var 1, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
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<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete Course Record </h3> 
<hr /> <p align="center" class="stylel">***Are you sure you want to 
Delete the <strong><%=(rs_course.Fields.Item("courseCode").Value)%> </strong> 
Course?*** </p> 
<p align="center" class="style1"> 
<input name="Submit2" type="button" 
onclick="MM_goToURL(‘parent','"Form_Course_Master.asp');return 
document.MM_returnValue" value="Cancel" /> 
</p> 
<form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="form1" id="form1"> 
<table width="95%" border="1" cellspacing="0" cellpadding="3"> 


<tr> 
<td>Course Code </td> 
<td><input name="courseCode" type="text" id="courseCode" 
value="<%=(rs_course.Fields.Item("courseCode"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Course Name </td> 
<td><input name="courseName" type="text" — id="courseName" 
value="<%=(rs_course.Fields.Item("courseName"). Value)%>" /></td> 
</tr> 
<tr> 


<td>Course Description </td> 
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<td><textarea name="courseDescription" cols="50" 
id="courseDescription"><%=(rs_course.Fields.Item("courseDescription"). Value)%o></te 
xtarea></td> 


</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" value="Delete" /></td> 
</tr> 
</table> 
<input type="hidden" name="MM_ delete" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 


rs_course.Fields.Item("courseid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_course.Close() 
Set rs_course = Nothing 
%> 
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10. Form_Delete_Image.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
'**%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM_recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 
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Dim MM_formVal 
Dim MM_delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & i & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) 
<> ase) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Graphic" 

MM _editColumn = "graphicid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Image_Master.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

' *** Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_ image _MMColParam 

rs_ image —MMColParam = "1" 

If (Request.QueryString("graphicid") <> '"") Then 
rs image _MMColParam = Request.QueryString("graphicid") 

End If 

%> 

<% 

Dim rs_image 

Dim rs_image_ numRows 


Set rs_image = Server.CreateObject("ADODB.Recordset") 

rs_image.ActiveConnection = MM _conn_DistanceLearning STRING 

rs image.Source = "SELECT * FROM Graphic WHERE egraphicid = " + 
Replace(rs_image —_MMColParam, "", """) +"" 

rs_image.CursorType = 0 

rs_image.CursorLocation = 2 

rs_image.LockType = | 

rs_image.Open() 


rs_image_numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Form Delete Image</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #FFO000} 

2S 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_ goToURL( { //v3.0 
var i, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
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<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete Image Record </h3> 
<hr /> 
<p align="center" class="stylel">***Are yiu sure you want to Delete the 
<strong><%=(rs_image.Fields.Item("graphicName"). Value)%> </strong>Image 
Record?*** </p> 
<p align="center"> 


<input name="Submit" type="submit" 
onclick="MM_goToURL(‘parent','"Form_Image_Master.asp?subsectionid=<%= 
Request.QueryString("subsectionid") %>');return document.MM_ returnValue" 
value="Cancel" /> 
</p> <form name="forml" id="form1l" method="POST" 


action="<%=MM_ editAction%>"> 
<table width="95%"_ border="1" cellspacing="0" cellpadding="3"> 


<tr> 
<td width="38%">Image Name </td> 
<td width="62%"><input name="graphicName" type="text" 
id="graphicName" value="<%=(rs_image.Fields.Item("graphicName"). Value)%>" 
size="60" /></td> 
</tr> 
<tr> 
<td>Image Description </td> 
<td><textarea  name="graphicDescription" cols="60" = rows="5" 


id="graphicDescription"><%=(rs_image.Fields.Item("graphicDescription"). Value)%></t 
extarea></td> 
</tr> 
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<tr> 
<td>Image Relative Path </td> 


<td><input name="graphicPath" type="text" id="graphicPath" 
value="<%=(rs_image.Fields.Item("graphicPath"). Value)%>" size="60" /></td> 
</tr> 
<tr> 


<td><input name="author" type="hidden" id="author" value="<%= 
Session("MM_ Username") %>" /> 
<input name="subsectionid" type="hidden" id="subsectionid" 
value="<%= Request.QueryString("subsectionid") %>" /></td> 
<td><input type="submit" name="Submit2" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ delete" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_image.Fields.Item("graphicid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_image.Close() 
Set rs_image = Nothing 
%> 
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11. Form_Delete_Subject.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
'**%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM_recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 


133 


Dim MM_formVal 
Dim MM_delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & i & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "frm_ subject" And 
CStr(Request("MM_recordId")) <> '"") Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Subject" 

MM _editColumn = "subjectid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Subject_Master.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> '"" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

' *** Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_subject_ MMColParam 

rs_subject_ MMColParam = "1" 

If (Request.QueryString("subjectid") <> '"") Then 
rs_ subject MMColParam = Request.QueryString("subjectid") 

End If 

%> 

<% 

Dim rs_subject 

Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 

rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subject.Source = "SELECT * FROM Subject WHERE subjectid = " + 
Replace(rs_subject _MMColParam, "", '""") +" 

rs_subject.CursorType = 0 

rs_subject.CursorLocation = 2 

rs_subject.LockType = 1 

rs_subject.Open() 


rs_subject_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete Subject Record</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.style2 {color: #CC0000} 

--> 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_goToURL() { //v3.0 
var 1, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 


136 


<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete Subject Record </h3> 
<hr /> 
<p align="center" class="style2">***Are you sure you want to Delete 
the&nbsp;<strong><%=(rs_subject.Fields.Item("subjectName"). Value)%></strong>&nb 
sp;Subject?***</p> 
<p align="center" class="style2"> 


<input name="Submit22" type="button" 
onclick="MM_goToURL(‘parent','Form_ Subject_Master.asp?courseid=<%= 
Request.QueryString("courseid") %>"');return document.MM_returnValue" 
value="Cancel" /> 
</p> 
<form name="frm_ subject" id="frm_ subject" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Subject ID </td> 
<td><input name="subjectID" type="text" id="subjectID" 
value="<%=(rs_subject.Fields.Item("subjectid"). Value)%>" /></td> 
</tr> 
<tr> 


<td>Subject Name </td> 
<td><input name="subjectName" type="text" id="subjectName" 
value="<%=(rs_subject.Fields.Item("subjectName").Value)%>" size="60" /></td> 
</tr> 


138 


<tr> 
<td>Subject Description </td> 
<td><textarea name="subjectDescription" cols="60" 
id="subjectDescription"><%=(rs_subject.Fields.Item("subjectDescription"). Value)%></t 
extarea></td> 
</tr> 
<tr> 
<td><input name="courseid" type="hidden" id="courseid" value="<%= 
Request.QueryString("courseid") %>" /></td> 
<td> <input type="submit" name="Submit" value="Delete" 
/></td></tr> 
</table> 


<input type="hidden" name="MM_ delete" value="frm_subject"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_subject.Fields.Item("subjectid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_subject.Close() 
Set rs_subject = Nothing 
%> 
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12. Form_Delete_Subsection.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 


140 


Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = "" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) 
<> et) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Subsection" 

MM editColumn = "subsectionid" 

MM recordId = "" + Request.Form("MM_recordId") + '™ 

MM editRedirectUrl = "Form Subsection Master.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'**%* Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "1" 

If (Request.QueryString("subsectionid") <> "") Then 
rs_ subsection _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 


Set rs_subsection = Server.CreateObject("ADODB.Recordset") 

rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subsection.Source = "SELECT * FROM Subsection WHERE subsectionid = " 
+ Replace(rs_subsection_MMColParam, """, """) +" 

rs_subsection.CursorType = 0 

rs_subsection.CursorLocation = 2 

rs_subsection.LockType = 1 

rs_subsection.Open() 


rs_subsection_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete Subsection Record</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
</-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

Stylel { 
color: #FF0000; 
font-weight: bold; 


} 

.style4 {color: #FF0000} 

se 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_goToURL() { //v3.0 
var i, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
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</table></td> 


</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 


classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
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—" 


<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete Subsection Record </h3> 
<hr /> 
<p align="center"><span class="style4">***Are you sure you want to Delete 
the</span>&nbsp;<span 
class="stylel"><%=(rs_subsection.Fields.Item("subsectionName"). Value)%>&nbsp;</sp 
an><span class="style4">Subsection?***</span></p> 
<p align="center"> 
<input name="Submit2" type="submit" 
onclick="MM_goToURL(‘parent','"Form_Subsection_Master.asp?topicid=<%= 
Request.QueryString("topicid") %>');return document.MM_returnValue" value="Cancel" 
/> 
</p> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_ editAction%>"> 


<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="29%">Subsection Name </td> 
<td width="71%"><input name="subName" type="text" id="subName" 
value="<%=(rs_subsection.Fields.Item("subsectionName").Value)%>" size="60" /></td> 
</tr> 
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<tr> 
<td>Subsection Description </td> 
<td><textarea name="description" cols="60" rows="5" 
id="description"><%=(rs_subsection.Fields.Item("subsectionDescription"). Value)%></te 
xtarea></td> 
</tr> 
<tr> 
<td>Content</td> 
<td><textarea name="content" cols="60" rows="15" 
id="content"><%=(rs_subsection.Fields.Item("content"). Value)%></textarea></td> 
</tr> 
<tr> 
<td>Keywords</td> 
<td><textarea name="keywords" cols="60" 
id="keywords"><%=(rs_subsection.Fields.Item("keywords"). Value)%></textarea></td> 
</tr> 
<tr> 
<td><input name="topicid" type="hidden" id="topicid" value="<%= 
Request.QueryString("topicid") %>" /> 
<input name="author" type="hidden" id="author"  value="<%= 
Session("MM_Username") %>" /></td> 
<td><input type="submit" name="Submit" value="Delete" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ delete" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_subsection.Fields.Item("subsectionid"). Value %>"> 
</form> 
<p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_subsection.Close() 
Set rs_subsection = Nothing 
%> 


146 


13. Form_Delete_Teach.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = "" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) 
<> et) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Teach" 

MM _editColumn = "teachid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Master_Teach.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_teach ~_MMColParam 

rs_teach /_MMColParam = "7" 

If (Request.QueryString("professorid") <> "") Then 
rs_teach__MMColParam = Request.QueryString("professorid") 

End If 

%> 

<% 

Dim rs_teach__ParamCourseid 

rs_teach__ParamCourseid = "4" 

If (Request.QueryString("courseid") <>"") Then 
rs teach _ParamCourseid = Request.QueryString("courseid") 

End If 

%> 

<% 

Dim rs_teach 

Dim rs_teach_numRows 


Set rs_teach = Server.CreateObject("ADODB.Recordset") 

rs_teach.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_teach.Source = "SELECT * FROM Teach WHERE professorid = " + 
Replace(rs teach MMColParam, "", "") + " AND courseid = "— + 
Replace(rs_teach__ParamCourseid, "", """) +" 

rs_teach.CursorType = 0 
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rs_teach.CursorLocation = 2 
rs_teach.LockType = 1 
rs_teach.Open() 


rs_teach_numRows = 0 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete&quot;Teach&quot;Record</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<I-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #FF0000} 

aes 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_goToURL() { //v3.0 
var i, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete &quot;Teach&quot; Record </h3> 
<hr /> 
<p align="center" class="stylel">***Are you sure you want to Delete this 
&quot;Teach&quot; Record?***</p> 
<p align="center" class="style1"> 
<input name="Submit2" type="submit" 
onclick="MM_goToURL(‘parent','"Form_Master_Teach.asp');return 
document.MM_returnValue" value="Cancel" /> 


</p> 
<form name="form 1" id="form1" method="POST" 
action="<%=MM_editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Professor ID </td> 
<td><input name="peofessorid" type="text" id="peofessorid" 
value="<%=(rs_teach.Fields.Item("professorid"). Value)%>" /></td> 
</tr> 
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<tr> 
<td>Course ID </td> 
<td><input name="courseid" type="text" id="courseid" 
value="<%=(rs_teach.Fields.Item("courseid"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Room</td> 
<td><input name="room" type="text" id="room" 
value="<%=(rs_teach.Fields.Item("room"). Value)%>" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input type="submit" name="Submit" value="Delete" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ delete" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_teach.Fields.Item("teachid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_teach.Close() 
Set rs_teach = Nothing 
%> 
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14. Form_Delete_Topic.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = "" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) 
<> et) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Topic" 

MM _editColumn = "topicid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Topic_Master.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_topic _MMColParam 

rs_topic _MMColParam = "1" 

If (Request.QueryString("topicid") <> "") Then 
rs_topic__MMColParam = Request.QueryString("topicid") 

End If 

%> 

<% 

Dim rs_topic 

Dim rs_topic_numRows 


Set rs_topic = Server.CreateObject("ADODB.Recordset") 

rs_topic.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_topic.Source = "SELECT * FROM Topic WHERE topicid = " + 
Replace(rs_topic _MMColParam, """,""™") +" 

rs_topic.CursorType = 0 

rs_topic.CursorLocation = 2 

rs_topic.LockType = 1 

rs_topic.Open() 


rs_topic_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 


156 


<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete Topic Record</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.style2 {color: #CC0000} 

--> 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_goToURL() { //v3.0 
var 1, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
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<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete Topic Record </h3> 
<hr /> 
<p align="center" class="style2">***Are you sure you want to Delete 
the&nbsp;<strong><%=(rs_topic.Fields.Item("topicName"). Value)%></strong>&nbsp;T 


opic?***</p> 
<p align="center" class="style2"> 
<input name="Submit2" type="submit" 
onclick="MM_goToURL(‘parent','Form_ Topic _Master.asp?subjectid=<%= 
Request.QueryString("subjectid") %>');return document.MM_returnValue" 
value="Cancel" /> 
</p> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_ editAction%>"> 
<table width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Topic ID </td> 
<td><input name="topicid" type="text" id="topicid" 
value="<%=(rs_topic.Fields.Item("topicid"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Topic Name </td> 
<td><input name="topicName" type="text" id="topicName" 
value="<%=(rs_topic.Fields.Item("topicName").Value)%>" size="60" /></td> 
</tr> 
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<tr> 
<td>Topic Description </td> 
<td><textarea name="topicDescription" cols="60" 
id="topicDescription"><%=(rs_topic.Fields.Item("topicDescription"). Value)%></textare 
a></td> 
</tr> 
<tr> 
<td><input name="subjectid" type="hidden" id="subjectid" value="<%= 
Request.QueryString("subjectid") %>" /></td> 
<td><input type="submit" name="Submit" value="Delete" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ delete" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_topic.Fields.Item("topicid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_topic.Close() 
Set rs_topic = Nothing 
%> 
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15. Form_Delete_User.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailedURL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = "" 

%> 

<% 

'*** Tyelete Record: declare variables 


if (CStr(Request("MM_delete")) = "frm_ deleteUser" And 
CStr(Request("MM_recordId")) <> "") Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "User" 

MM _editColumn = "userid" 

MM. recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form_Master_User.asp" 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tyelete Record: construct a sql delete statement and execute it 
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If (CStr(Request("©MM_delete")) <> '"" And CStr(Request("MM_recordId")) <> 
"") Then 


‘create the sql delete statement 
MM editQuery = "delete from " & MM editTable & " where " & 
MM editColumn & "=" & MM recordId 


If (Not MM_abortEdit) Then 
"execute the delete 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_user__MMColParam 

rs_user__MMColParam = "1" 

If (Request.QueryString("userid") <> "") Then 
rs_user__MMColParam = Request.QueryString("userid") 

End If 

%> 

<% 

Dim rs_user 

Dim rs_user_numRows 


Set rs_user = Server.CreateObject("ADODB.Recordset") 

rs_user.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_user.Source = "SELECT * FROM User WHERE userid = " + 
Replace(rs_user ~_MMColParam, "", """) +" 

rs_user.CursorType = 0 

rs_user.CursorLocation = 2 

rs_user.LockType = 1 

rs_user.Open() 


rs_user_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Delete User Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
</-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #FF0000} 

.style4 {color: #336633; font-weight: bold; } 

sce 

</style> 

<script language="JavaScript" type="text/JavaScript"> 

<!-- 

function MM_goToURL() { //v3.0 
var i, args=MM_goToURL.arguments; document.MM_returnValue = false; 
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location=""+args[i+1]+""); 

} 

/|--> 

</script> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
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<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 


165 


<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Delete User Record </h3> 
<hr /> 
<p align="center"><span class="style1">***Are you sure you want to Delete 
the User:</span><span 
class="style4"><%=(rs_user.Fields.Item("lastName"). Value)%></span>, <span 
class="style4"><%=(rs_user.Fields.Item("firstName"). Value)%></span> <span 


class="stylel">Record?***</span></p> 

<p align="center"> 

<input name="Submit2" type="submit" 

onclick="MM_goToURL(‘parent','"Form_ Master User.asp');return 
document.MM_returnValue" value="Cancel" /> 

</p> 

<form name="frm_deleteUser" id="frm_deleteUser" method="POST" 
action="<%=MM_ editAction%>"> 


<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>First Name </td> 
<td><input name="firstName" type="text" id="firstName" 
value="<%=(rs_user.Fields.Item("firstName").Value)%>" /></td> 
</tr> 
<tr> 
<td>Last Name </td> 
<td><input name="lastName" type="text" id="lastName" 


value="<%=(rs_user.Fields.Item("lastName"). Value)%>" /></td> 
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</tr> 


<tr> 
<td>Office Phone </td> 
<td><input name="officePhone" type="text" id="officePhone" 
value="<%=(rs_user.Fields.Item("officephone"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Office Room </td> 
<td><input name="officeRoom" type="text" id="officeRoom" 
value="<%=(rs_user.Fields.Item("officeRoom"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Email Address </td> 
<td><input name="email" type="text" id="email" 
value="<%=(rs_user.Fields.Item("email"). Value)%>" size="60" /></td> 
</tr> 
<tr> 
<td>User Name </td> 
<td><input name="userName" type="text" id="userName" 
value="<%=(rs_user.Fields.Item("userName").Value)%>" /></td> 
</tr> 
<tr> 
<td>Password</td> 
<td><input = name="password" type="password" id="password" 
value="<%=(rs_user.Fields.Item("password"). Value)%>" /></td> 
</tr> 
<tr> 
<td>User Group </td> 
<td><input name="userGroup" type="text" id="userGroup" 
value="<%=(rs_user.Fields.Item("userGroup"). Value)%>" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input type="submit" name="Submit" value="Delete" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ delete" value="frm_deleteUser"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_user.Fields.Item("userid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
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<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 

</html> 

<% 

rs_user.Close() 

Set rs_user = Nothing 
%> 
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16. Form_Image_Master.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailedURL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 
Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 
& Server. URLEncode(MM referrer) 
Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
Dim rs_subsectionTopic _MMColParam 
rs_subsectionTopic _MMColParam = "3" 
If (Request.QueryString("subsectionid") <> "") Then 
rs_subsectionTopic _MMColParam = Request.QueryString("subsectionid") 
End If 
%> 
<% 
Dim rs_subsectionTopic 
Dim rs_subsectionTopic_numRows 


Set rs_subsectionTopic = Server.CreateObject("ADODB.Recordset") 

rs_subsectionTopic.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_subsectionTopic.Source "SELECT 
Graphic.graphicid,Graphic.graphicName,Graphic. soko peeioe 
Graphic.graphicPath FROM = Subsection Has Graphics, Graphic WHERE 
Graphic.graphicid=Subsection_Has_ Graphics. graphicid AND 


Subsection Has Graphics.subsectionid = + 
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Replace(rs_subsectionTopic MMColParam, "", "") + " ORDER BY 
Graphic.graphicName ASC" 

rs_subsectionTopic.CursorType = 0 

rs_subsectionTopic.CursorLocation = 2 

rs_subsectionTopic.LockType = 1 

rs_subsectionTopic.Open() 

rs_subsectionTopic_ numRows = 0 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "1" 

If (Request.QueryString("subsectionid") <> "") Then 

rs_ subsection _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 

Set rs_subsection = Server.CreateObject("ADODB.Recordset") 

rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subsection.Source = "SELECT  subsectionid, subsectionName FROM 


Subsection WHERE subsectionid = " + Replace(rs_subsection  MMColParam, "", " 


+ we 
rs_subsection.CursorType = 0 
rs_subsection.CursorLocation = 2 
rs_subsection.LockType = 1 
rs_subsection.Open() 


rs_subsection_numRows = 0 
%> 


<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 


"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Image Master Form</title> 


<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 


<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 


a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
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} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

Sstylel {color: #339933} 

.style2 {color: #CC0000} 

aa 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
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<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
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<td><hr /> <h3 align="center"> <span class="stylel">Image</span> Master 
Form for Subsection: <span 
class="style2"><%=(rs_subsection.Fields.Item("subsectionName"). Value)%></span></h 
3> 
<hr /> 
<form name="frm_selectImage" id="frm_selectImage" method="get" 
action="Image_ Result.asp"> 
<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="50%">Select an Image to see it </td> 
<td width="50%"><select name="graphicid" id="graphicid"> 


<% 
While (NOT rs_subsectionTopic.EOF) 
%> 

<option 


value="<%=(rs_subsectionTopic.Fields.Item("graphicid"). Value)%>"><%=(rs_subsectio 
nTopic.Fields.Item("graphicName"). Value)%></option> 
<% 
rs_subsectionTopic.MoveNext() 
Wend 
If (rs_subsectionTopic.CursorType > 0) Then 
rs_subsectionTopic.MoveFirst 


Else 
rs_subsectionTopic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Submit" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_insertImage"  id="frm_insertImage" method="get" 
action="Form_ Insert _Image.asp"> 
<table = width="95%" border="1" align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="50%"><strong>Insert </strong>New Image </td> 
<td width="50%"><input name="rbt_insert" type="submit" 
id="rbt_insert" value="Insert" /> 
<input name="subsectionid" type="hidden" id="subsectionid" 
value="<%= Request.QueryString("subsectionid") %>" /></td> 
</tr> 
</table> 
</form> 
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<form name="frn_update" id="frn_update" method="get" 
action="Form_ Update Image.asp"> 
<table = width="95%" border="1" align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="50%"><strong>Update</strong> Existing Image </td> 
<td width="50%"><select name="graphicid" id="graphicid"> 


<% 
While (NOT rs_subsectionTopic.EOF) 
%> 

<option 


value="<%=(rs_subsectionTopic.Fields.Item("graphicid"). Value)%>"><%=(rs_subsectio 
nTopic.Fields.Item("graphicName"). Value)%></option> 
<% 
rs_subsectionTopic.MoveNext() 
Wend 
If (rs_subsectionTopic.CursorType > 0) Then 
rs_subsectionTopic.MoveFirst 


Else 
rs_subsectionTopic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit2" value="Update" /> 
<input name="subsectionid" type="hidden" id="subsectionid" 
value="<%= Request.QueryString("subsectionid") %>" /></td> 
</tr> 
</table> 
</form> 
<form name="form2" id="form2" method="get" 
action="Form_Delete_Image.asp"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="50%"><strong>Delete</strong> Existing Image </td> 
<td width="50%"><select name="graphicid" id="graphicid"> 
<% 
While (NOT rs_subsectionTopic.EOF) 
%> 
<option 


value="<%=(rs_subsectionTopic.Fields.Item("graphicid"). Value)%>"><%=(rs_subsectio 
nTopic.Fields.Item("graphicName"). Value)%></option> 
<% 
rs_subsectionTopic.MoveNext() 
Wend 
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If (rs_subsectionTopic.CursorType > 0) Then 
rs_subsectionTopic.MoveFirst 


Else 
rs_subsectionTopic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Delete" /> 
<input name="subsectionid" type="hidden" id="subsectionid" 
value="<%= Request.QueryString("subsectionid") %>" /></td> 
</tr> 
</table> 
</form> <p>&nbsp;</p> = <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 


<p>&nbsp;</p> 
<p>&nbsp;</p> 

</body> 

</html> 

<% 
rs_subsectionTopic.Close() 
Set rs_subsectionTopic = Nothing 
%> 

<% 

rs_subsection.Close() 

Set rs_subsection = Nothing 
%> 
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17. Form_Input_Subsection.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailed(URL & MM _qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Subsection" 

MM editRedirectUrl = ""Test1_Confirm.asp" 

MM_fieldsStr = 
"categoryid|value|header|value|description|value|content|value|keywords|value|author|valu 
e" 

MM columnsStr = 
"categoryid|none,none, NULL|subsectionName|',none,"|subsectionDescription|',none,"|con 
tent|',snone,"|keywords|',none,"|author|',none,"" 


"create the MM _ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


' set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
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If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "2" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM_dbValues = "" 
For MM _i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM _typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
ElseIf (MM_delim =") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM _ delim+MM_ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM_dbValues & "," 
End If 
MM. tableValues = MM_tableValues & MM_columns(MM_1i) 
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MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into " & MM _ editTable & " (" & MM _tableValues & 


") values ("& MM_dbValues & ")" 


ASC" 


If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _ editQuery 
MM editCmd.Execute 
MM _ editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_category 

Dim rs_category_numRows 


Set rs_category = Server.CreateObject("ADODB.Recordset") 
rs_category.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_category.Source = "SELECT * FROM Category ORDER BY categoryName 


rs_category.CursorType = 0 
rs_category.CursorLocation = 2 
rs_category.LockType = 1 
rs_category.Open() 


rs_category_numRows = 0 

%> 

<% 

Dim rs_topic _MMColParam 

rs_topic _MMColParam = "1" 

If (Request.QueryString("topicid") <> "") Then 
rs_ topic _MMColParam = Request.QueryString("topicid") 

End If 

%> 

<% 

Dim rs_topic 

Dim rs_topic_numRows 
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Set rs_topic = Server.CreateObject("ADODB.Recordset") 

rs_topic.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_topic.Source = "SELECT * FROM Topic WHERE topicid = " + 
Replace(rs_topic _MMColParam, """,""™") +" 

rs_topic.CursorType = 0 

rs_topic.CursorLocation = 2 

rs_topic.LockType = 1 

rs_topic.Open() 


rs_topic_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Insert Subsection Input Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #CC3300} 

.style2 {color: #3300CC} 

ao 

</style> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr />  <h3 align="center"> Insert Subsection&nbsp;into:&nbsp; <span 
class="stylel"><%=(rs_topic.Fields.Item("topicName"). Value)%>&nbsp;<span 
class="style2">Topic</span></span></h3> 
<hr /> <form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="form1" id="form1"> 


<table = width="95%" border="1"_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>category</td> 
<td><select name="categoryid" id="categoryid"> 
<% 
While (NOT rs_category.EOF) 
%> 
<option 


value="<%=(rs_category.Fields.Item("categoryid"). Value)%>"><%=(rs_category.Fields. 
Item("categoryName"). Value)%></option> 
<% 
rs_category.MoveNext() 
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Wend 
If (rs_category.CursorType > 0) Then 
rs_category.MoveFirst 
Else 
rs_category.Requery 
End If 
%> 
</select></td> 
</tr> 
<tr> 
<td>Subsection Header </td> 
<td><input name="header" type="text" id="header" size="60" /></td> 
</tr> 
<tr> 
<td>Subsection Description </td> 
<td><textarea name="description" cols="60" rows="5" 
id="description"></textarea></td> 
</tr> 
<tr> 
<td>Subsection Content </td> 
<td><textarea name="content" cols="60" rows="15" wrap="VIRTUAL" 
id="content"></textarea></td> 
</tr> 
<tr> 
<td>Subsection Keywords </td> 
<td><textarea name="keywords" cols="60" rows="5" 
id="keywords"></textarea></td> 
</tr> 
<tr> 
<td><input name="author" type="hidden" id="author" value="<%= 
Session("MM_ Username") %>" /> 
<input name="topicid" type="hidden" id="topicid" value="<%= 
Request.QueryString("topicid") %>" /></td> 
<td><input name="Submit" type="submit" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="form1"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
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</body> 

</html> 

<% 

rs_category.Close() 

Set rs_category = Nothing 
%> 

<% 

rs_topic.Close() 

Set rs_topic = Nothing 
%> 
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18. Form_Insert_Category.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Category" 

MM editRedirectUrl = "Form _Master_Category.asp" 

MM fieldsStr = "categoryName|value|categoryDescription|value" 

MM columnsStr = "categoryName|',none,"|categoryDescription|',none,"" 
"create the MM_fields and MM_ columns arrays 

MM fields = Split(MM_fieldsStr, "|") 

MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "2" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
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End If 
End If 


End If 

%> 

<% 

'** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM._dbValues = "" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
ElseIf (MM_delim="") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into " & MM _editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 
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If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Insert Category Form</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<!-- 

a:link { 

color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


act 

</style> 

<script language="JavaScript" type="text/JavaScript"> 
<!-- 


function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 


x=d.forms[1i]|[n]; 
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for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM__findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementByld(n); return x; 


} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=-MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst+='- 'tnm+' must contain a number 
between 'tmint' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 
} 
/|--> 
</script> 
</head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 





<tr> 
<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
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<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Insert New Category Record </h3> 
<hr /> 
<form name="form1" id="form 1" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="95%" border="1" align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="32%">Category Name </td> 
<td width="68%"><input name="categoryName" type="text" 
id="categoryName" size="60" /></td> 
</tr> 
<tr> 
<td>Category Description </td> 
<td><textarea name="categoryDescription" cols="60" = rows="5" 
id="categoryDescription"></textarea></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" 
onclick="MM_validateForm('categoryName’,",'R','categoryDescription',",'R');return 
document.MM_ returnValue" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="form1"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
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<p>&nbsp;</p> 
</body> 
</html> 


19. Form_Insert_Image.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM _ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _ editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
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Dim MM_recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 
Dim MM_formVal 
Dim MM_ delim 

Dim MM_altVal 

Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & we & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Graphic" 

MM editRedirectUrl = "Confirm _Image.asp" 

MM_fieldsStr = 
"graphicName|value|graphicDescription|value|graphicPath|value|author|value" 

MM columnsStr 7 
"graphicName|',none,"|graphicDescription|',none,"|graphicPath|',none,"|author|',none,"" 


"create the MM_ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 
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"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM_dbValues = '"" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
Elself (MM_delim =") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & " 
Else 
MM _formVal =MM _ delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
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MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into" & MM _ editTable & " (" & MM _ tableValues & 


") values ("& MM_dbValues & ")" 


If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM _ editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "1" 

If (Request.QueryString("subsectionid") <> "") Then 
rs_subsection _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 


Set rs_subsection = Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_subsection.Source = "SELECT  subsectionid, subsectionName FROM 


Subsection WHERE subsectionid = " + Replace(rs_subsection_MMColParam, "", " 


+ we 


rs_subsection.CursorType = 0 
rs_subsection.CursorLocation = 2 
rs_subsection.LockType = 1 
rs_subsection.Open() 


rs_subsection_numRows = 0 
%> 
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<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Form Insert Image</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 
.stylel {color: #CC0000} 
aS 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<= 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p); } 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[1i]|[n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if('x && d.getElementByld) x=d.getElementBylId(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=-MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errorst+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
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if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 'tmin+' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors =="); 
} 
//--> 
</script> 
</head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 





<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
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<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
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<td><hr /> <h3 align="center"> Insert Image  into:<span 
class="stylel"><%=(rs_subsection.Fields.Item("subsectionName"). Value)%></span>Su 
bsection </h3> 


<hr /> 
<form name="form1" id="form 1" method="POST" 
action="<%=MM_editAction%>"> 
<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="29%">Image Name </td> 
<td width="71%"><input name="graphicName" type="text" 
id="graphicName" size="60" /></td> 
</tr> 
<tr> 
<td>Image Description </td> 
<td><textarea  name="graphicDescription" cols="60" = rows="5" 
id="graphicDescription"></textarea></td> 
</tr> 
<tr> 


<td>Image Relative Path </td> 
<td><input name="graphicPath" type="text" id 


—" 


graphicPath" size="60" 
/></td> 
</tr> 
<tr> 
<td><input name="subsectionid" type="hidden" id="subsectionid" 
value="<%= Request.QueryString("subsectionid") %>" /> 
<input name="author" type="hidden" id="author" value="<%= 
Session("MM_Username") %>" /></td> 
<td><input name="Submit" type="submit" 
onclick="MM_ validateForm('graphicName',",'R','graphicPath',",'R','graphicDescription',", 
'R’);return document.MM_returnValue" value="Submit" /></td> 
</tr> 
</table> 


—" 


<input type="hidden" name="MM_ insert" value="form1"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
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rs_subsection.Close() 
Set rs_subsection = Nothing 
%> 


20. Form_Insert_Teach.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailedURL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 
Dim MM _editRedirectUrl 
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Dim MM _editColumn 
Dim MM _recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 

Dim MM_altVal 

Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> ''"") Then 


MM editAction 7 MM editAction & re 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Teach" 
MM _ editRedirectUrl = "Form _Master_Teach.asp" 
MM fieldsStr = "professorid|value|courseid|value|room|value" 
MM columnsStr 
"professorid|jnone,none, NULL |courseid|none,none,NULL|room|',none,"" 
"create the MM_ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 
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"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM_dbValues = '"" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
Elself (MM_delim =") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & " 
Else 
MM _formVal =MM _ delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
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MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into" & MM _ editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 


If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM _ editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_ professor 

Dim rs_professor_numRows 


Set rs_professor = Server.CreateObject("ADODB.Recordset") 
rs_professor.ActiveConnection = MM_conn_DistanceLearning STRING 
rs_professor.Source = "SELECT * FROM User ORDER BY lastName ASC" 
rs_professor.CursorType = 0 

rs_professor.CursorLocation = 2 

rs_professor.LockType = 1 

rs_professor.Open() 


rs_professor_numRows = 0 
%> 

<% 

Dim rs_course 

Dim rs_course_numRows 


Set rs_course = Server.CreateObject("ADODB.Recordset") 
rs_course.ActiveConnection = MM_conn_DistanceLearning STRING 
rs_course.Source = "SELECT * FROM Course ORDER BY courseCode ASC" 
rs_course.CursorType = 0 

rs_course.CursorLocation = 2 
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rs_course.LockType = | 
rs_course.Open() 


rs_course_numRows = 0 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Add&quot;Teach&quot;Recoed</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


= 
</style></head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="buttonS.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Add New &quot;Teach&quot; Record </h3> 
<hr /> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td>Select Professor </td> 
<td><select name="professorid" id="professorid"> 


<% 
While (NOT rs_professor.EOF) 
%> 

<option 


value="<%=(rs_professor.Fields.Item("userid"). Value)%>"><%=(rs_professor.Fields. Ite 
m("lastName"). Value)%></option> 
<% 
rs_professor.MoveNext() 
Wend 
If (rs_professor.CursorType > 0) Then 
rs_professor.MoveFirst 
Else 
rs_professor.Requery 
End If 
%> 
</select></td> 
</tr> 
<tr> 
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<td>Select Cource </td> 
<td><select name="courseid" id="courseid"> 


<% 
While (NOT rs_course.EOF) 
%> 

<option 


value="<%=(rs_course.Fields.Item("courseid"). Value)%>"><%=(rs_course.Fields.Item(" 
courseCode"). Value)%></option> 
<% 
rs_course.MoveNext() 
Wend 
If (rs_course.CursorType > 0) Then 
rs_course.MoveFirst 
Else 
rs_course.Requery 
End If 
%> 
</select></td> 
</tr> 
<tr> 
<td>Room</td> 
<td><input name="room" type="text" id="room" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input type="submit" name="Submit" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="form1"> 

</form> <p align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_professor.Close() 
Set rs_professor = Nothing 
%> 
<% 
rs_course.Close() 
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Set rs_course = Nothing 
%> 


21. Form_Master_Admin.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailedURL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 
Then 
MM _ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 
& Server. URLEncode(MM referrer) 
Response.Redirect(MM_authFailedURL) 
End If 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Template</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
</-- 
a:link { 
color: #CC3300; 
} 
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a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #336633} 

sos 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
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<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
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<tr> 
<td><hr /> <h3 align="center"> <span class="style1">Administrator</span> 
Master Form </h3> 
<hr /> 
<table = width="45%" border="1"__—_— align="center" ~—cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="71%"><strong>Alter User Record </strong></td> 
<td width="29%"><object classid="clsid:D27CDB6E-AE6D-1 |cf-96B8- 
444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="20"> 
<param name="movie" value="button8.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button8.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="20" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
<tr> 
<td><strong>Alter Category Record </strong></td> 
<td><object classid="clsid:D27CDB6E-AE6D-1 1cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="20"> 
<param name="movie" value="Category.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="Category.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="20" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
<tr> 
<td><strong>Alter &quot;Teach&quot; Record </strong></td> 
<td><object classid="clsid:D27CDB6E-AE6D-1 1cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="20"> 
<param name="movie" value="Teach.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="Teach.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="20" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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_Master_Category.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


ASC" 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
Dim rs_category 
Dim rs_category_numRows 


Set rs_category = Server.CreateObject("ADODB.Recordset") 
rs_category.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_category.Source = "SELECT * FROM Category ORDER BY categoryName 


rs_category.CursorType = 0 
rs_category.CursorLocation = 2 
rs_category.LockType = 1 
rs_category.Open() 


rs_category_numRows = 0 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 


"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 


<html xmlns="http://www.w3.org/1999/xhtml"> 
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<head> 
<title>Distance Learning: Master Category Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
</-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #336633} 

as 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 


215 


<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> <span class="stylel">Category</span> 
Master Form </h3> 
<hr /> 
<form name="form1" id="form1" method="get" 
action="Form_ Insert Category.asp"> 
<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="40%"><strong>Add New Category </strong></td> 
<td width="60%"><input type="submit" name="Submit" value="Submit" 


/></td> 
</tr> 
</table> 
</form> 
<form name="form2" id="form2" method="get" 
action="Form_ Update _Category.asp"> 
<table = width="95%" border="1"_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="40%"><strong>Update Existing Category Record 
</strong></td> 
<td width="60%"><select name="categoryid" id="categoryid"> 
<% 
While (NOT rs_category.EOF) 
%> 
<option 


value="<%=(rs_category.Fields.Item("categoryid"). Value)%>"><%=(rs_category.Fields. 
Item("categoryName"). Value)%></option> 
<% 
rs_category.MoveNext() 
Wend 
If (rs_category.CursorType > 0) Then 
rs_category.MoveFirst 
Else 
rs_category.Requery 
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End If 


%> 
</select> 
<input type="submit" name="Submit2" value="Submit" /></td> 
</tr> 
</table> 
</form> 
<form name="form3" id="form3" method="get" 
action="Form_ Delete Category.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="40%"><strong>Delete Existing Category Record 
</strong></td> 
<td width="60%"><select name="categoryid" id="categoryid"> 
<% 
While (NOT rs_category.EOF) 
%> 
<option 


value="<%=(rs_category.Fields.Item("categoryid"). Value)%>"><%=(rs_category.Fields. 
Item("categoryName"). Value)%></option> 
<% 
rs_category.MoveNext() 
Wend 
If (rs_category.CursorType > 0) Then 
rs_category.MoveFirst 


Else 
rs_category.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Submit" /></td> 
</tr> 
</table> 


</form> <p>&nbsp;</p> 
<p>&nbsp;</p> 
<p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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Then 


<% 

rs_category.Close() 

Set rs_category = Nothing 
%> 


23. Form_Master_Teach.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailedURL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> "" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


MM _ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 


Request.QueryString() 


MM_authFailedURL = MM_authFailed(URL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
Dim rs_professor 
Dim rs_professor_ numRows 


Set rs_professor = Server.CreateObject("ADODB.Recordset") 
rs_professor.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_professor.Source = "SELECT * FROM User ORDER BY lastName ASC" 
rs_professor.CursorT ype = 0 

rs_professor.CursorLocation = 2 
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rs_professor.LockType = 1 
rs_professor.Open() 


rs_professor_numRows = 0 
%> 

<% 

Dim rs_course 

Dim rs_course_numRows 


Set rs_course = Server.CreateObject("ADODB.Recordset") 
rs_course.ActiveConnection = MM_conn_DistanceLearning STRING 
rs_course.Source = "SELECT * FROM Course ORDER BY courseCode ASC" 
rs_course.CursorType = 0 

rs_course.CursorLocation = 2 

rs_course.LockType = | 

rs_course.Open() 


rs_course_numRows = 0 

%> 

<% 

Dim rs_professorTeach 

Dim rs_professorTeach_numRows 


Set rs_professorTeach = Server.CreateObject("ADODB.Recordset") 

rs_professorTeach.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_professorTeach.Source = "SELECT User.lastName, User.userid FROM 
Teach, User WHERE User.userid= Teach.professorid" 

rs_professorTeach.CursorType = 0 

rs_professorTeach.CursorLocation = 2 

rs_professorTeach.LockType = 1 

rs_professorTeach.Open() 


rs_professorTeach_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Teach Master Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 
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a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #336633} 

sos 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
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<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
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<tr> 


<td><hr |> <h3 align="center"> <span 
class="style1">&quot;Teach&quot;</span> Master Form </h3> 
<hr /> 
<form name="form1" id="form1" method="get" 
action="Form_ Insert Teach.asp"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="39%"><strong>Add New &quot;Teach&quot; Record 
</strong></td> 
<td width="61%"><input type="submit" name="Submit" value="Submit" 
/></td> 
</tr> 
</table> 
</form> 
<form name="form3" id="form3" method="get" 
action="Form_Delete_Teach.asp"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="39%"><strong>Delete Existing &quot;Teach&quot; Record 
</strong></td> 
<td width="61%"><select name="professorid" id="professorid"> 


<% 
While (NOT rs_professorTeach.EOF) 
%> 

<option 


value="<%=(rs_professorTeach.Fields.Item("userid"). Value)%>"><%=(rs_professorTea 
ch.Fields.Item("lastName"). Value)%></option> 
<% 
rs_professorTeach.MoveNext() 
Wend 
If (rs_professorTeach.CursorType > 0) Then 
rs_professorTeach.MoveFirst 


Else 

rs_professorTeach.Requery 
End If 
%> 

</select> 
<select name="courseid" id="courseid"> 
<% 

While (NOT rs_course.EOF) 
%> 
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<option 
value="<%=(rs_course.Fields.Item("courseid"). Value)%>"><%=(rs_course.Fields.Item(" 
courseCode"). Value)%></option> 
<% 
rs_course.MoveNext() 
Wend 
If (rs_course.CursorType > 0) Then 
rs_course.MoveFirst 
Else 
rs_course.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Submit" /></td> 
</tr> 
</table> 
</form> <p>&nbsp;</p>  <p>&nbsp;</p> 
<p align="left">&nbsp;</p></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_professor.Close() 
Set rs_professor = Nothing 
%> 
<% 
rs_course.Close() 
Set rs_course = Nothing 
%> 
<% 
rs_professorTeach.Close() 
Set rs_professorTeach = Nothing 
%> 
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orm_Master_User.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
Dim rs_user 
Dim rs_user_numRows 


Set rs_user = Server.CreateObject("ADODB.Recordset") 
rs_user.ActiveConnection = MM_conn_DistanceLearning STRING 
rs_user.Source = "SELECT * FROM User" 

rs_user.CursorType = 0 

rs_user.CursorLocation = 2 

rs_user.LockType = 1 

rs_user.Open() 


rs_user_numRows = 0 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 


"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
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<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Form Master User</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #336600} 

a> 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
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<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> = <h3 align="center"> <span class="stylel">User</span> Master 
Form </h3> 


<hr /> 

<form name="frm_addUser" id="frm_addUser" method="get" 
action="User_ Input Form.asp"> 

<table = width="58%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 

<tr> 


<td width="56%"><strong>Add New User </strong></td> 
<td width="44%"><input type="submit" name="Submit" value="Submit" 
/></td> 
</tr> 
</table> 
</form> 
<form name="frm_updateUser"  id="frm_updateUser" method="get" 
action="Form_ Update User.asp"> 
<table = width="58%" border="1" align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="56%"><strong>Update User Record </strong></td> 
<td width="44%"><select name="userid" id="userid"> 


<% 
While (NOT rs_user.EOF) 
%> 

<option 


value="<%=(rs_user.Fields.Item("userid"). Value)%>"><%=(rs_user.Fields.Item("lastNa 
me"). Value)%></option> 
<% 
rs_user.MoveNext() 
Wend 
If (rs_user.CursorType > 0) Then 
rs_user.MoveFirst 
Else 
rs_user.Requery 
End If 
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%> 


</select> 
<input type="submit" name="Submit2" value="Submit" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_deleteUser" id="frm_ deleteUser" method="get" 
action="Form_Delete_User.asp"> 
<table width="58%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="56%"><strong>Delete User Record </strong></td> 
<td width="44%"><select name="userid" id="userid"> 


<% 
While (NOT rs_user.EOF) 
%> 

<option 


value="<%=(rs_user.Fields.Item("userid"). Value)%>"><%=(rs_user.Fields.Item("lastNa 
me"). Value)%></option> 
<% 
rs_user.MoveNext() 
Wend 
If (rs_user.CursorType > 0) Then 
rs_user.MoveFirst 


Else 
rs_user.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Submit" /></td> 
</tr> 
</table> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 


<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 

</html> 

<% 

rs_user.Close() 

Set rs_user = Nothing 
%> 
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25. Form_Subject_Master.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 

End If 

%> 

<% 

Dim rs_subject_ MMColParam 

rs_subject_ MMColParam = "1" 

If (Request.QueryString("courseid") <> "") Then 
rs_ subject MMColParam = Request.QueryString("courseid") 

End If 

%> 

<% 

Dim rs_subject 

Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 
rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_subject.Source = "SELECT * FROM Subject WHERE courseid = " + 


Replace(rs_subject_ MMColParam, "", """) +" ORDER BY subjectName ASC" 


rs_subject.CursorType = 0 
rs_subject.CursorLocation = 2 
rs_subject.LockType = 1 
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rs_subject.Open() 


rs_subject_numRows = 0 

%> 

<% 

Dim Courses __MMColParam 

Courses _MMColParam = "1" 

If (Request.QueryString("courseid") <> "") Then 
Courses _MMColParam = Request.QueryString("courseid") 

End If 

%> 

<% 

Dim Courses 

Dim Courses _numRows 


Set Courses = Server.CreateObject("ADODB.Recordset") 

Courses.ActiveConnection = MM_conn_DistanceLearning STRING 

Courses.Source = "SELECT courseid, courseCode, courseName FROM Course 
WHERE courseid = " + Replace(Courses MMColParam, '"", """) + " ORDER BY 
courseCode ASC" 

Courses.CursorType = 0 

Courses.CursorLocation = 2 

Courses.LockType = 1 

Courses.Open() 


Courses _numRows = 0 
%> 

<% 

Dim searchMethod 


searchMethod = Request.QueryString("radiobutton") 
If searchMethod = 1 Then 
Response.Redirect("Keyword_Request.asp") 


End If 


%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Subject Master Form</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<!-- 
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.stylel {color: #CC3300} 

.style3 {color: #CC3300; font-weight: bold; } 

.style4 {color: #336600} 

oe 

</style> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
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</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"><span class="style4">Subject</span> Master 
Form for Course:<span 
class="style1"><%=(Courses.Fields.Item("courseCode"). Value)%></span> </h3> 
<hr/> = </td> 
</tr> 
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<tr> 
<td><form name="frmSubject" id="frmSubject" method="get" 
action="Form_Topic_Master.asp"> 
<div align="center"><br /> 
<table width="95%"_ border="1" cellspacing="0" cellpadding="3"> 
<tr> 

<td width="44%"><div align="left"><strong>Existing Subject Content 
</strong><br />(Insert, Modify, Delete content ONLY)</div></td> 

<td width="56%"><div align="left"> 

<select name="subjectid" id="subjectid"> 


<% 
While (NOT rs_subject.EOF) 
%> 

<option 


value="<%=(rs_subject.Fields.Item("subjectid"). Value)%>"><%=(rs_subject.Fields.Item 
("subjectName"). Value)%></option> 
<% 
rs_subject.MoveNext() 
Wend 
If (rs_subject.CursorType > 0) Then 
rs_subject.MoveFirst 
Else 
rs_subject.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Continue" /> 
</div></td> 
</tr> 
</table> 
</div> 
</form> 
<form name="frm_addSubject" id="frm_addSubject" method="get" 
action="Form_Add_ Subject.asp"> 


<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="44%"><strong>Insert New Subject Record 
</strong><br />(Subject Name, Description)<span 


class="style3"><%=(Courses.Fields.Item("courseCode"). Value)%></span> </td> 
<td width="56%"><input name="courseid" type="hidden" id="courseid" 


value="<%= Request.QueryString("courseid") %>" /> &nbsp; 
<input type="submit" name="Submit5" value="Insert" /></td> 
</tr> 
</table> 
</form> 
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<form name="frm_ subject" id="frm_ subject" method="get" 
action="Form_ Update Subject.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="44%"><strong>Update Existing Subject Record 
</strong><br /> 
(Subject Name, Description)</td> 
<td width="56%"><select name="subjectid" id="subjectid"> 


<% 
While (NOT rs_subject.EOF) 
%> 

<option 


value="<%=(rs_subject.Fields.Item("subjectid"). Value)%>"><%=(rs_subject.Fields.Item 
("subjectName"). Value)%></option> 
<% 
rs_subject.MoveNext() 
Wend 
If (rs_subject.CursorType > 0) Then 
rs_subject.MoveFirst 
Else 
rs_subject.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit2" value="Update" /> 
<input name="courseid" type="hidden" id="courseid" value="<%= 
Request.QueryString("courseid") %>" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_ delete" id="frm_delete" method="get" 
action="Form_ Delete _Subject.asp"> 
<table = width="95%" border="1"—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="44%"><strong>Delete Existing Subject Record 
</strong><br /> 
(Subject Name, Description &amp; Code)</td> 
<td width="56%"><select name="subjectid" id="subjectid"> 


<% 
While (NOT rs_subject.EOF) 
%> 

<option 


value="<%=(rs_subject.Fields.Item("subjectid"). Value)%>"><%=(rs_subject.Fields.Item 
("subjectName"). Value)%></option> 
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<% 
rs_subject.MoveNext() 
Wend 
If (rs_subject.CursorType > 0) Then 
rs_subject.MoveFirst 
Else 
rs_subject.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Delete" /> 
<input name="courseid" type="hidden" id="courseid" value="<%= 
Request.QueryString("courseid") %>" /></td></tr> 
</table> 
</form> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
<p>&nbsp;</p></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_subject.Close() 
Set rs_subject = Nothing 
%> 
<% 
Courses.Close() 
Set Courses = Nothing 
%> 
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26. Form_Subsection_Master.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailedURL="login.asp" 
MM _grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 
Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 
& Server. URLEncode(MM referrer) 
Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
Dim rs_topicSubsection_MMColParam 
rs_topicSubsection_MMColParam = "4" 
If (Request.QueryString("topicid") | <>"") Then 
rs_topicSubsection_MMColParam = Request.QueryString("topicid") 
End If 
%> 
<% 
Dim rs_topicSubsection 
Dim rs_topicSubsection_numRows 


Set rs_topicSubsection = Server.CreateObject("ADODB.Recordset") 
rs_topicSubsection.ActiveConnection = MM_conn_DistanceLearning STRING 


rs_topicSubsection.Source = "SELECT Subsection.subsectionName, 
Subsection.subsectionid FROM — Subsection,Topic_Has_ Subsections WHERE 
Subsection.subsectionid=Topic Has Subsections.subsectionid AND 


Topic_Has_ Subsections.topicid = " + Replace(rs_topicSubsection_ MMColParam, "", 
™") +" ORDER BY Subsection.subsectionName ASC" 
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rs_topicSubsection.CursorType = 0 
rs_topicSubsection.CursorLocation = 2 
rs_topicSubsection.LockType = 1 
rs_topicSubsection.Open() 


rs_topicSubsection_numRows = 0 

%> 

<% 

Dim rs_topic _MMColParam 

rs_topic _MMColParam = "1" 

If (Request.QueryString("topicid") <> '"") Then 
rs topic _MMColParam = Request.QueryString("topicid") 

End If 

%> 

<% 

Dim rs_topic 

Dim rs_topic_numRows 


Set rs_topic = Server.CreateObject("ADODB.Recordset") 

rs_topic.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_topic.Source = "SELECT * FROM Topic WHERE topicid = " + 
Replace(rs_topic _MMColParam, "",""™") +" 

rs_topic.CursorType = 0 

rs_topic.CursorLocation = 2 

rs_topic.LockType = 1 

rs_topic.Open() 


rs_topic_numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Form Subsection Master</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

</-- 

.stylel {color: #CC3300} 

.style2 {color: #339900} 

> 

</style> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 
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<tr> 


<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> = <span class="style2">Subsection</span> 
Master Form for Topic:<span 
class="style1"><%=(rs_topic.Fields.Item("topicName"). Value)%></span></h3> 
<hr/> </td> 
</tr> 
<tr> 
<td> 
<form action="Form_Image_ Master.asp" method="get" 
enctype="multipart/form-data" name="frmSubsection" id="frmSubsection"> 
<div align="center"> 
<table width="95%" border="1"__ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
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<td width="45%"><div  align="left"><strong>Existing Subsection 
Images</strong><br /> 
(Insert, Modify, Delete Images ONLY) </div></td> 
<td width="55%"><div align="left"> 
<select name="subsectionid" id="select"> 


<% 
While (NOT rs_topicSubsection.EOF) 
%> 

<option 


value="<%=(rs_topicSubsection.Fields.Item("subsectionid"). Value)%>"><%=(rs_topicS 
ubsection.Fields.Item("subsectionName"). Value)%></option> 
<% 
rs_topicSubsection.MoveNext() 
Wend 
If (rs_topicSubsection.CursorType > 0) Then 
rs_topicSubsection.MoveFirst 


Else 
rs_topicSubsection.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Continue" /> 
</div></td> 
</tr> 
</table> 
</div> 
</form> 
<form name="frm_ insert" id="frm_ insert" method="get" 
action="Form_Input_Subsection.asp"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="45%"><strong>Insert</strong> New Subsection </td> 
<td width="55%"><input type="submit" name="Submit2" value="Insert" 
/> 
<input name="topicid" type="hidden" id="topicid" value="<%= 
Request.QueryString("topicid") %>" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_update" id="frm_update" method="get" 
action="Test_ Form Update Subsection.asp"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="45%"><strong>Update</strong> Existing Subsection </td> 
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<td width="55%"><select name="subsectionid" id="subsectionid"> 


<% 
While (NOT rs_topicSubsection.EOF) 
%> 

<option 


value="<%=(rs_topicSubsection.Fields.Item("subsectionid"). Value)%>"><%=(rs_topicS 
ubsection.Fields.Item("subsectionName"). Value)%></option> 
<% 
rs_topicSubsection.MoveNext() 
Wend 
If (rs_topicSubsection.CursorType > 0) Then 
rs_topicSubsection.MoveFirst 
Else 
rs_topicSubsection.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Update" /> 
<input name="topicid" type="hidden" id="topicid" value="<%= 
Request.QueryString("topicid") %>" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_ delete" id="frm_ delete" method="get" 
action="Form_ Delete _Subsection.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="45%"><strong>Delete</strong> Existing Subsection </td> 
<td width="55%"><select name="subsectionid" id="subsectionid"> 


<% 
While (NOT rs_topicSubsection.EOF) 
%> 

<option 


value="<%=(rs_topicSubsection.Fields.Item("subsectionid"). Value)%>"><%=(rs_topicS 
ubsection.Fields.Item("subsectionName"). Value)%></option> 
<% 
rs_topicSubsection.MoveNext() 
Wend 
If (rs_topicSubsection.CursorType > 0) Then 
rs_topicSubsection.MoveFirst 
Else 
rs_topicSubsection.Requery 
End If 
%> 
</select> 
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<input type="submit" name="Submit4" value="delete" /> 
<input name="topicid" type="hidden" id="topicid" value="<%= 
Request.QueryString("topicid") %>" /></td> 
</tr> 
</table> 
</form>  <p>&nbsp;</p></td></tr> 

</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_topicSubsection.Close() 
Set rs_topicSubsection = Nothing 
%> 
<% 
rs_topic.Close() 
Set rs_topic = Nothing 
%> 
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27. Form_Topic_Master.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailedURL="login.asp" 
MM _grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 

End If 

%> 

<% 

Dim rs_topic _MMColParam 

rs_topic _MMColParam = "1" 

If (Request.QueryString("subjectid") <> '"") Then 
rs_topic _MMColParam = Request.QueryString("subjectid") 

End If 

%> 

<% 

Dim rs_topic 

Dim rs_topic_numRows 


Set rs_topic = Server.CreateObject("ADODB.Recordset") 
rs_topic.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_topic.Source = "SELECT * FROM Topic WHERE subjectid = " + 


Replace(rs_topic _MMColParam, """, '""") +" ORDER BY topicName ASC" 


rs_topic.CursorType = 0 
rs_topic.CursorLocation = 2 
rs_topic.LockType = 1 
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rs_topic.Open() 


rs_topic_numRows = 0 

%> 

<% 

Dim rs_subject_ MMColParam 

rs_subject_ MMColParam = "1" 

If (Request.QueryString("subjectid") <> '"") Then 
rs_subject_ MMColParam = Request.QueryString("subjectid") 

End If 

%> 

<% 

Dim rs_subject 

Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 

rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subject.Source = "SELECT * FROM Subject WHERE subjectid = " + 
Replace(rs_subject_MMColParam, "", '""") +" 

rs_subject.CursorType = 0 

rs_subject.CursorLocation = 2 

rs_subject.LockType = 1 

rs_subject.Open() 


rs_subject_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Form Topic Master</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
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} 

.stylel {color: #CC3300} 

.style3 {color: #CC3300; font-weight: bold; } 

.SstyleS {color: #336600} 

Be 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
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</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> <span class="style5">Topic</span> Master 
Form for Subject: <span 
class="stylel"><%=(rs_subject.Fields.Item("subjectName"). Value)%></span></h3> 
<hr /> 
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<form name="frm_continue" id="frm_continue" method="get" 
action="Form_Subsection_Master.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="45%"><strong>Existing Topic Content 
</strong><br />(Insert, Modify, Delete content ONLY )</td> 
<td width="55%"><select name="topicid" id="topicid"> 


<% 
While (NOT rs_topic.EOF) 
%> 

<option 


value="<%=(rs_topic.Fields.Item("topicid"). Value)%>"><%=(rs_topic.Fields.Item("topi 
cName"). Value)%></option> 
<% 
rs_topic.MoveNext() 
Wend 
If (rs_topic.CursorType > 0) Then 
rs_topic.MoveFirst 
Else 
rs_topic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Continue" /></td> 
</tr> 
</table> 
</form> 
<form name="Frm_add" id="Frm_add" method="get" 
action="Form_ Add_ Topic.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="45%"><strong>Insert New Topic Record 
</strong><br />(Topic Name, Description)<span 
class="style3"><%=(rs_subject.Fields.Item("subjectName"). Value)%></span></td> 
<td width="55%"><input type="submit" name="Submit2" value="Insert" 
/> 
<input name="subjectid" type="hidden" id="subjectid" value="<%= 
Request.QueryString("subjectid") %>" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_update" id="frm_update" method="get" 
action="Form_Update_Topic.asp"> 
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<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="45%"><strong>Update Existing Topic Record 
</strong><br />(Topic Name, Description) </td> 
<td width="55%"><select name="topicid" id="topicid"> 


<% 
While (NOT rs_topic.EOF) 
%> 

<option 


value="<%=(rs_topic.Fields.Item("topicid"). Value)%>"><%=(rs_topic.Fields.Item("topi 
cName"). Value)%></option> 
<% 
rs_topic.MoveNext() 
Wend 
If (rs_topic.CursorType > 0) Then 
rs_topic.MoveFirst 
Else 
rs_topic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit3" value="Update" /> 
<input name="subjectid" type="hidden" id="subjectid" value="<%= 
Request.QueryString("subjectid") %>" /></td> 
</tr> 
</table> 
</form> 
<form name="frm_ delete" id="frm_delete" method="get" 
action="Form_ Delete _Topic.asp"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="45%"><strong>Delete Existing Topic Record 
</strong><br /> (Topic Name, Description) </td> 
<td width="55%"><select name="topicid" id="topicid"> 


<% 
While (NOT rs_topic.EOF) 
%> 

<option 


value="<%=(rs_topic.Fields.Item("topicid"). Value)%>"><%=(rs_topic.Fields.Item("topi 
cName"). Value)%></option> 
<% 
rs_topic.MoveNext() 
Wend 
If (rs_topic.CursorType > 0) Then 
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rs_topic.MoveFirst 
Else 
rs_topic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit4" value="Delete" /> 
<input name="subjectid" type="hidden" id="subjectid" value="<%= 
Request.QueryString("subjectid") %>" /></td> 
</tr> 
</table> 
</form> 
<p>&nbsp;</p> <p>&nbsp;</p> 
<p>&nbsp;</p> = <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_topic.Close() 
Set rs_topic = Nothing 
%> 
<% 
rs_subject.Close() 
Set rs_subject = Nothing 
%> 
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28. Form_Update_Category.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM_ referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
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Dim MM fields 
Dim MM _columns 
Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & mee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM _ editQuery = "" 

%> 

<% 

'*** Update Record: set variables 


If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) 
<> my Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Category" 

MM editColumn = "categoryid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Master_Category.asp" 

MM fieldsStr = "categoryName|value|categoryDescription|value" 

MM columnsStr = "categoryName|',none,"|categoryDescription|',none,"" 
"create the MM_fields and MM _ columns arrays 

MM fields = Split(MM_fieldsStr, "|") 

MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
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If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "2" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
"") Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
Elself (MM_delim="") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+MM_ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM editQuery & "," 


End If 
MM _ editQuery = MM editQuery & MM columns(MM_i) & "=" & 
MM_formVal 
Next 
MM_editQuery = MM_editQuery & " where " & MM _editColumn & "=" & 


MM_recordId 
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If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_category _MMColParam 

rs_category MMColParam = "1" 

If (Request.QueryString("categoryid") <> "") Then 
rs_category _MMColParam = Request.QueryString("categoryid") 

End If 

%> 

<% 

Dim rs_category 

Dim rs_category_numRows 


Set rs_category = Server.CreateObject("ADODB.Recordset") 

rs_category.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_category.Source = "SELECT * FROM Category WHERE categoryid = " + 
Replace(rs_category _MMColParam, '"", """) +" 

rs_category.CursorType = 0 

rs_category.CursorLocation = 2 

rs_category.LockType = 1 

rs_category.Open() 


rs_category_numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlins="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Update Category Form</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 
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<!-- 
a:link { 

color: #CC3300; 
} 


a:visited { 

color: #CC3399; 
; 
a:hover { 

color: #000066; 
} 


a:active { 
color: #339900; 


} 
.stylel {color: #CC0000} 
es 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<!-- 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errorst+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 'tmin+' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 


} 
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//--> 

</script> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 


255 


codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update Category Record: <span 
class="style1"><%=(rs_category.Fields.Item("categoryName"). Value)%></span></h3> 
<hr /> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
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<td>Category Name </td> 
<td><input name="categoryName" type="text" id="categoryName" 
value="<%=(rs_category.Fields.Item("categoryName"). Value)%>" size="60" /></td> 


</tr> 
<tr> 
<td>Category Description </td> 
<td><textarea  name="categoryDescription" cols="60" = rows="5" 


id="categoryDescription"><%=(rs_category.Fields.Item("categoryDescription"). Value)% 
></textarea></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" 
onclick="MM_validateForm('categoryName'’,",'R','categoryDescription',",'R');return 
document.MM _ returnValue" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_update" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_category.Fields.Item("categoryid").Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_category.Close() 
Set rs_category = Nothing 
%> 


Dot. 


29. Form_Update_Course.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & Meee 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Update Record: set variables 


If (CStr(Request("MM_update")) = "frm_ Course" 
CStr(Request("MM_recordId")) <> '"") Then 


MM editConnection = MM_conn_DistanceLearning STRING 
MM editTable = "Course" 

MM _editColumn = "courseid" 

MM recordId = "" + Request.Form("MM_recordId") + "" 

MM editRedirectUrl = "Form Course Master.asp" 


And 


MM fieldsStr = "courseCode|value|courseName|value|courseDescription|value" 


MM columnsStr 
"courseCode|',none,"|courseName|',none,"|courseDescription|',none,"" 
"create the MM _ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 

MM columns = Split(MM_columnsStr, "|") 


' set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
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If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "2" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
"") Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
Elself (MM_delim="") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+MM_ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM editQuery & "," 


End If 
MM _ editQuery = MM editQuery & MM columns(MM_i) & "=" & 
MM_formVal 
Next 
MM_editQuery = MM_editQuery & " where " & MM _editColumn & "=" & 


MM_recordId 
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If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_course _MMColParam 

rs_course]MMColParam = "1" 

If (Request.QueryString("courseid") <> "") Then 
rs_ course MMColParam = Request.QueryString("courseid") 

End If 

%> 

<% 

Dim rs_course 

Dim rs_course_numRows 


Set rs_course = Server.CreateObject("ADODB.Recordset") 

rs_course.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_course.Source = "SELECT * FROM Course WHERE courseid = " + 
Replace(rs_course _MMColParam, '"", """) +" 

rs_course.CursorType = 0 

rs_course.CursorLocation = 2 

rs_course.LockType = | 

rs_course.Open() 


rs_course_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Update Course Record</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 
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<!-- 


a:link { 

color: #CC3300; 
} 
a:visited { 

color: #CC3399; 
} 
a:hover { 

color: #000066; 
} 
a:active { 

color: #339900; 
} 
soe 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<!-- 


function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=-MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='"R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange’) != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst+='- 'tnm+' must contain a number 
between '+min+' and 'tmax+".\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 


j 
|[--> 
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</script> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update Course Record </h3> 
<hr /> <form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="frm_Course" id="frm_Course"> 
<table = width="95%" border="1" align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Course Code </td> 
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<td><input name="courseCode" type="text" id="courseCode" 
value="<%=(rs_course.Fields.Item("courseCode"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Course Name </td> 
<td><input name="courseName" type="text" —id="courseName" 
value="<%=(rs_course.Fields.Item("courseName"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Course Description </td> 
<td><textarea name="courseDescription" cols="50" 
id="courseDescription"><%=(rs_course.Fields.Item("courseDescription"). Value)%></te 
xtarea></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" 
onclick="MM_validateForm('courseCode',",'R','courseName’,",'R','courseDescription’,",'R 
);return document.MM_returnValue" value="Update" /></td> 


</tr> 
</table> 
<input type="hidden" name="MM_ update" value="frm_Course"> 
<input type="hidden" name="MM_recordId" value="<%= 


rs_course.Fields.Item("courseid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_course.Close() 
Set rs_course = Nothing 
%> 
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30. Form_Update_Image.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 


266 


Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = '"" 

%> 

<% 

'*** Update Record: set variables 


If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) 
<> es) Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Graphic" 

MM _editColumn = "graphicid" 

MM recordId = "" + Request.Form("MM_recordId") + '™ 

MM editRedirectUrl = "Form_Image_Master.asp" 

MM_fieldsStr 7 
"graphicNamel|value|graphicDescription|value|graphicPath|value|author|value" 

MM columnsStr = 
"graphicName|',none,"|graphicDescription|',none,"|graphicPath|',none,"|author|',none,"" 


"create the MM_fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
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If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "2" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
"") Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
Elself (MM_delim="") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+MM_ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM editQuery & "," 


End If 
MM _ editQuery = MM editQuery & MM columns(MM_i) & "=" & 
MM_formVal 
Next 
MM_editQuery = MM_editQuery & " where " & MM _editColumn & "=" & 


MM_recordId 
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If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_graphic _MMColParam 

rs_graphic —_MMColParam = "1" 

If (Request.QueryString("graphicid") <> '"") Then 
rs_graphic _MMColParam = Request.QueryString("graphicid") 

End If 

%> 

<% 

Dim rs_ graphic 

Dim rs_graphic_numRows 


Set rs_ graphic = Server.CreateObject("ADODB.Recordset") 

rs_graphic.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_graphic.Source = "SELECT * FROM Graphic WHERE graphicid = " + 
Replace(rs_graphic _MMColParam, """,""") +" 

rs_graphic.CursorType = 0 

rs_graphic.CursorLocation = 2 

rs_graphic.LockType = 1 

rs_ graphic.Open() 


rs_graphic_numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Form Update Image</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 
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<!-- 


a:link { 

color: #CC3300; 
} 
a:visited { 

color: #CC3399; 
} 
a:hover { 

color: #000066; 
} 
a:active { 

color: #339900; 
} 
soe 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<!-- 


function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=-MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='"R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange’) != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst+='- 'tnm+' must contain a number 
between '+min+' and 'tmax+".\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 


j 
|[--> 
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</script> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update Image Record </h3> 
<hr /> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td>Image Name </td> 


DID 


<td><input name="graphicName" type="text" id="graphicName" 
value="<%=(rs_graphic.Fields.Item("graphicName").Value)%>" size="60" /></td> 


</tr> 
<tr> 
<td>Image Description </td> 
<td><textarea  name="graphicDescription" cols="60" = rows="5" 


id="graphicDescription"><%=(rs_graphic.Fields.Item("graphicDescription"). Value)%>< 
/textarea></td> 
</tr> 
<tr> 
<td>Image Relative Path </td> 
<td><input name="graphicPath" type="text" id="graphicPath" 
value="<%=(rs_graphic.Fields.Item("graphicPath"). Value)%>" size="60" /></td> 
</tr> 
<tr> 
<td><input name="author" type="hidden" id="author" value="<%= 
Session("MM_ Username") %>" /> 


<input name="subsectionid" type="hidden" id="subsectionid" 
value="<%= Request. QueryString("subsectionid") %>" /></td> 
<td><input name="Submit" type="submit" 


onclick="MM_validateForm('graphicName',",'R','graphicPath',",'R','graphicDescription',", 
'R');return document.MM_returnValue" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_update" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_graphic.Fields.Item("graphicid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_graphic.Close() 
Set rs_graphic = Nothing 
%> 
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31. Form_Update_Subject.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 

' ** Edit Operations: declare variables 


Dim MM _ editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _ columns 
Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 

Dim MM_altVal 

Dim MM_emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & aor 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


"query string to execute 

MM editQuery = '"" 

%> 

<% 

'**%* Update Record: set variables 
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If (CStr(Request("MM_update")) = "frm_ Subject" And 
CStr(Request("MM_recordId")) <> "") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Subject" 

MM editColumn = "subjectid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Subject_Master.asp" 

MM fieldsStr = "subjectName|value|subjectDescription|value" 

MM _ columnsStr = "subjectName|',none,"|subjectDescription|',none,"" 
"create the MM_ fields and MM _ columns arrays 

MM fields = Split(MM_fieldsStr, "|") 

MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
a Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
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If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
ElseIf (MM_delim =") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM _ delim+MM_ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM editQuery & "," 


End If 
MM editQuery = MM editQuery & MM columns(MM i) & "=" & 
MM_formVal 
Next 
MM _editQuery = MM editQuery & " where " & MM editColumn & "=" & 


MM_recordId 


If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _ editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 
%> 
<% 
Dim rs_subject_ MMColParam 
rs_subject_ MMColParam = "1" 
If (Request.QueryString("subjectid") <> '"") Then 
rs_ subject MMColParam = Request.QueryString("subjectid") 
End If 
%> 
<% 
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Dim rs_subject 
Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 

rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subject.Source = "SELECT * FROM Subject WHERE subjectid = " + 
Replace(rs_subject _MMColParam, "", '""") +" 

rs_subject.CursorType = 0 

rs_subject.CursorLocation = 2 

rs_subject.LockType = 1 

rs_subject.Open() 


rs_subject_numRows = 0 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Update Subject Record</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 

color: #CC3399; 
: 
a:hover { 

color: #000066; 
} 


a:active { 
color: #339900; 
} 


aS 
</style></head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update Subject Record </h3> 
<hr /> <form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="frm_ Subject" id="frm_Subject"> 


<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="24%">Subject Name </td> 
<td width="76%"><input name="subjectName" type="text" 
id="subjectName" value="<%=(rs_subject.Fields.Item("subjectName"). Value)%>" 
size="60" /></td> 
</tr> 
<tr> 
<td>Subject Description </td> 
<td><textarea name="subjectDescription" cols="60" 


id="subjectDescription"><%=(rs_subject.Fields.Item("subjectDescription"). Value)%></t 
extarea></td> 

</tr> 

<tr> 
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<td><input name="courseid" type="hidden" id="courseid" value="<%= 
Request.QueryString("courseid") %>" /></td> 
<td><input type="submit" name="Submit" value="Update" /></td> 


</tr> 
</table> 
<input type="hidden" name="MM_update" value="frm_ Subject" /> 
<input type="hidden" name="MM_recordId" value="<%= 


rs_subject.Fields.Item("subjectid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_subject.Close() 
Set rs_subject = Nothing 
%> 
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32. Form_Update_Teach.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 

' ** Edit Operations: declare variables 


Dim MM _ editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM _fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _ columns 
Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 

Dim MM_altVal 

Dim MM_emptyVal 
Dim MM _i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & aor 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


"query string to execute 

MM editQuery = '"" 

%> 

<% 

'**%* Update Record: set variables 
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If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) 
<> m) Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Teach" 

MM _editColumn = "teachid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Master_Teach.asp" 

MM fieldsStr = "professorid|value|courseid|value|room|value" 

MM columnsStr = 
"professorid|jnone,none,NULL|courseid|none,none,NULL|room|',none,"" 


"create the MM _ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM _i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
oa Then 


"create the sql update statement 
MM editQuery = "update " & MM _ editTable & "set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM _typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 


282 


MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM _formVal = MM_altVal 
Elself (MM_delim =") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM_formVal =MM _ delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM editQuery & "," 


End If 
MM editQuery = MM editQuery & MM columns(MM i) & "=" & 
MM_formVal 
Next 
MM_editQuery = MM editQuery & " where " & MM editColumn & "=" & 


MM_recordId 


If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _ editQuery 
MM editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 
%> 
<% 
Dim rs_teach /_MMColParam 
rs_teach =_MMColParam = "7" 
If (Request.QueryString("professorid") <> "") Then 
rs_teach _MMColParam = Request.QueryString("professorid") 
End If 
%> 
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<% 
Dim rs_teach__ParamCourseid 
rs_teach__ParamCourseid = "4" 
If (Request.QueryString("courseid") <>"") Then 
rs teach__ParamCourseid = Request.QueryString("courseid") 
End If 
%> 
<% 
Dim rs_teach 
Dim rs_teach_numRows 


Set rs_teach = Server.CreateObject("ADODB.Recordset") 

rs_teach.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_teach.Source = "SELECT * FROM Teach WHERE professorid = " + 
Replace(rs teach MMColParam, "", "") + " AND = courseid = "— + 
Replace(rs_teach ParamCourseid, '"", """) +" 

rs_teach.CursorType = 0 

rs_teach.CursorLocation = 2 

rs_teach.LockType = 1 

rs_teach.Open() 





rs_teach_numRows = 0 
%> 
<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Update&quot;Teach&quot;Record</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


ee 
</style></head> 
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<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
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<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update &quot;Teach&quot; Record </h3> 
<hr /> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_editAction%>"> 
<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>Professor ID </td> 
<td><input name="professorid" type="text" id="professorid" 
value="<%=(rs_teach.Fields.Item("professorid"). Value)%>" /></td> 
</tr> 
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<tr> 
<td>Course ID </td> 
<td><input name="courseid" type="text" id="courseid" 
value="<%=(rs_teach.Fields.Item("courseid"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Room</td> 
<td><input name="room" type="text" id="room" 
value="<%=(rs_teach.Fields.Item("room"). Value)%>" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input type="submit" name="Submit" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_update" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_teach.Fields.Item("teachid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_teach.Close() 
Set rs_teach = Nothing 
%> 
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33. Form_Update_Topic.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = '"" 

%> 

<% 

'*** Update Record: set variables 


If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) 
<> es) Then 


MM editConnection = MM _conn_DistanceLearning STRING 
MM editTable = "Topic" 

MM _editColumn = "topicid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Topic_Master.asp" 

MM fieldsStr = "topicName|value|topicDescription|value" 

MM columnsStr = "topicName|',none,"|topicDescription|',none,"" 
"create the MM_ fields and MM _ columns arrays 

MM fields = Split(MM_fieldsStr, "|") 

MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> '"" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
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MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
aa Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_it+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM _typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
ElseIf (MM_delim="") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM _ editQuery & "," 


End If 
MM editQuery = MM editQuery & MM columns(MM i) & "=" & 
MM_formVal 
Next 
MM _ editQuery = MM editQuery & " where " & MM editColumn & "=" & 


MM_recordId 
If (Not MM_abortEdit) Then 
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"execute the update 

Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 

MM editCmd.CommandText = MM _ editQuery 

MM editCmd.Execute 

MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> '"") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_subject_ MMColParam 

rs_subject_ MMColParam = "1" 

If (Request.QueryString("subjectid") <> '"") Then 
rs_ subject MMColParam = Request.QueryString("subjectid") 

End If 

%> 

<% 

Dim rs_subject 

Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 

rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subject.Source = "SELECT * FROM Subject WHERE subjectid = " + 
Replace(rs_subject _MMColParam, "", '""") +" 

rs_subject.CursorType = 0 

rs_subject.CursorLocation = 2 

rs_subject.LockType = 1 

rs_subject.Open() 


rs_subject_numRows = 0 

%> 

<% 

Dim rs_topic _MMColParam 

rs_topic _MMColParam = "1" 

If (Request.QueryString("topicid") <> "") Then 
rs_topic__MMColParam = Request.QueryString("topicid") 

End If 

%> 

<% 

Dim rs_topic 

Dim rs_topic_numRows 
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Set rs_topic = Server.CreateObject("ADODB.Recordset") 

rs_topic.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_topic.Source = "SELECT * FROM Topic WHERE topicid = " + 
Replace(rs_topic__MMColParam, """,""™") +" 

rs_topic.CursorType = 0 

rs_topic.CursorLocation = 2 

rs_topic.LockType = 1 

rs_topic.Open() 


rs_topic_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Update Topic</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<t-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


eee 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<li 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementBylId(n); return x; 
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} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 'tmint' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors =="); 
} 
/|--> 
</script> 
</head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 





<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
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<param name="quality" value="high" /> 

<param name="bgcolor" value="#DEDEBC" /> 

<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update Topic Record </h3> 
<hr /> 
<form name="form1" id="form1" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="95%" border="1"__—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="24%">Topic Name </td> 
<td width="76%"><input name="topicName" type="text" 


id="topicName" value="<%=(rs_topic.Fields.Item("topicName").Value)%>"__ size="60" 
/></td> 


</tr> 
<tr> 
<td>Topic Description </td> 
<td><textarea name="topicDescription" cols="60" 


id="topicDescription"><%=(rs_topic.Fields.Item("topicDescription"). Value)%></textare 
a></td> 
</tr> 
<tr> 
<td><input name="subjectid" type="hidden" id="subjectid" value="<%= 
Request.QueryString("subjectid") %>" /></td> 
<td><input name="Submit" type="submit" 
onclick="MM_validateForm(‘topicName',",'R','topicDescription’,",'R');return 
document.MM_ returnValue" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_update" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_topic.Fields.Item("topicid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
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</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 

</html> 

<% 

rs_subject.Close() 

Set rs_subject = Nothing 
%> 

<% 

rs_topic.Close() 

Set rs_topic = Nothing 
%> 
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34. Form_Update_User.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = '"" 

%> 

<% 

'*** Update Record: set variables 


If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) 
<> es) Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "User" 

MM _editColumn = "userid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form _Master_User.asp" 

MM_fieldsStr 7 
"firstName|value|lastName|value|officePhone|value|officeRoom|value|email|valuejuserNa 
me|value|password|value|userGroup|value" 

MM _columnsStr 7 
"firstName|',none,"|lastName|',none,"|officephone|',none,"|officeRoom|',none,"|email|',;non 
e,"|userName|',none,"|password|',none,"|userGroup|',none,"" 


"create the MM_ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 
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"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
my Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
Elself (MM_delim =") Then ' escape quotes 
MM _formVal ="" & Replace(MM_formVal,""",""™") & "" 
Else 
MM _formVal =MM delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM _editQuery & "," 
End If 
MM editQuery = MM editQuery & MM columns(MM_i) & "=" & 
MM_formVal 
Next 
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MM _ editQuery = MM _ editQuery & " where" & MM editColumn & "=" & 
MM recordId 


If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM _editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> '"") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_user__MMColParam 

rs_user__MMColParam = "1" 

If (Request.QueryString("userid") <> "") Then 
rs_user__MMColParam = Request.QueryString("userid") 

End If 

%> 

<% 

Dim rs_user 

Dim rs_user_numRows 


Set rs_user = Server.CreateObject("ADODB.Recordset") 

rs_user.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_user.Source = "SELECT * FROM User WHERE userid = " + 
Replace(rs_user _MMColParam, "", """) +" 

rs_user.CursorType = 0 

rs_user.CursorLocation = 2 

rs_user.LockType = 1 

rs_user.Open() 


rs_user_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Update User Form</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
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<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


ac 

</style></head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveFlash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Update User Record </h3> 
<hr /> 
<form name="form 1" id="form1" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td>First Name </td> 
<td><input name="firstName" type="text" id="firstName" 
value="<%=(rs_user.Fields.Item("firstName").Value)%>" /></td> 
</tr> 
<tr> 
<td>Last Name </td> 
<td><input name="lastName" type="text" id="lastName" 
value="<%=(rs_user.Fields.Item("lastName"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Office Phone </td> 
<td><input name="officePhone" type="text" id="officePhone" 
value="<%=(rs_user.Fields.Item("officephone"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Office Room </td> 
<td><input name="officeRoom" type="text" id="officeRoom" 
value="<%=(rs_user.Fields.Item("officeRoom"). Value)%>" /></td> 
</tr> 
<tr> 
<td>Email Address </td> 
<td><input name="email" type="text" id="email" 
value="<%=(rs_user.Fields.Item("email"). Value)%>" size="60" /></td> 
</tr> 
<tr> 
<td>User Name </td> 
<td><input name="userName" type="text" id="userName" 
value="<%=(rs_user.Fields.Item("userName").Value)%>" /></td> 
</tr> 
<tr> 
<td>Password</td> 
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<td><input name="password" type="password" id="password" 
value="<%=(rs_user.Fields.Item("password"). Value)%>" /></td> 
</tr> 
<tr> 
<td>User Group </td> 
<td><input name="userGroup" type="text" id="userGroup" 
value="<%=(rs_user.Fields.Item("userGroup"). Value)%>" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input type="submit" name="Submit" value="Submit" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_update" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 
rs_user.Fields.Item("userid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 

</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_user.Close() 
Set rs_user = Nothing 
%> 
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35. Home_Page.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning:DLR Home Page</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<l-- 

a:link { 

color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #FF0000} 

a 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr />  <h3 align="center"> DLR Content Management System Home 
Page </h3> 
<hr /> <p align="center" class="stylel">***WELCOME TO THE DLR 
CONTENT MANAGEMENT SYSTEM***<br /> 
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SELECT FROM BELOW LIST OF OPERATIONS TO CONTINUE </p> 
</td> 
</tr> 
<tr> 
<td><table width="70%" border="1" align="center" cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="77%"><strong>Search<br /> 
</strong>(Content Query by Keyword or Course)</td> 
<td width="23%"><object classid="clsid:D27CDB6E-AE6D-1 | cf-96B8- 
444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed = src="buttonl.swf" width="100"  height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
</tr> 
<tr> 
<td><strong>Log In<br /> 
</strong>(Required ONLY for Database Modification) </td> 
<td><object classid="clsid:D27CDB6E-AE6D- 1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
<tr> 
<td><strong>Alter Database</strong> <br /> 
(Professors &amp; Content Developers ONLY) </td> 
<td><object classid="clsid:D27CDB6E-AE6D- 1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="BGCOLOR" value="#DEDEBC" /> 
<param name="movie" value="button6.swf" /> 
<param name="quality" value="high" /> 
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<embed src="button6.swf" width="103"  height="24" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
></embed> 
</object></td> 
</tr> 
<tr> 
<td><strong>User's Records, Category Records, &quot;Teach&quot; 
Records</strong> <br /> 
(Administrator ONLY) </td> 
<td><object classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="BGCOLOR" value="#DEDEBC" /> 
<param name="movie" value="button7.swf" /> 
<param name="quality" value="high" /> 
<embed  src="button7.swf" width="103"  height="24" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
></embed> 
</object></td> 
</tr> 
</table> </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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36. Image_Detail_Visitor.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
Dim rs_graphic _MMColParam 
rs_graphic _MMColParam = "1" 
If (Request.QueryString("graphicid") <> '"") Then 
rs_graphic _MMColParam = Request.QueryString("graphicid") 
End If 
%> 
<% 
Dim rs_ graphic 
Dim rs_graphic_numRows 


Set rs_graphic = Server.CreateObject("ADODB.Recordset") 

rs_graphic.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_graphic.Source = "SELECT * FROM Graphic WHERE graphicid = " + 
Replace(rs_graphic _MMColParam, """,""") +" 

rs_graphic.CursorType = 0 

rs_graphic.CursorLocation = 2 

rs_graphic.LockType = 1 

rs_ graphic.Open() 


rs_graphic_numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0. Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Image Result</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<!-- 

Stylel { 

color: #CC3300; 
font-weight: bold; 

} 

= 

</style> 

</head> 

<body> 

<table width="95%" height="335"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 
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<tr> 


<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed  src="buttonl.swf" width="100"  height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="68"><hr /> <h3 align="center"> Image Result </h3> 
<hr/> </td> 
</tr> 
<tr> 
<td><p align="center"><span class="style1"><br /> 
<%=(rs_graphic.Fields.Item("graphicName"). Value)%></span>:</p> 


<p align="center"><img 
src="<%=(rs_graphic.Fields.Item("graphicPath"). Value)%>" /> </p></td> 
</tr> 
</table> 


<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
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</html> 

<% 

rs_graphic.Close() 

Set rs_graphic = Nothing 
%> 


37. Image_Result.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
Dim rs image _MMColParam 
rs_ image —_MMColParam = "0" 
If (Request.QueryString("graphicid") <> '"") Then 
rs image _MMColParam = Request.QueryString("graphicid") 
End If 
%> 
<% 
Dim rs_image 
Dim rs_image_numRows 


Set rs_image = Server.CreateObject("ADODB.Recordset") 

rs_image.ActiveConnection = MM _conn_DistanceLearning STRING 

rs image.Source = "SELECT * FROM Graphic WHERE graphicid = " + 
Replace(rs_image —_MMColParam, """, ") +" 

rs_image.CursorType = 0 

rs_image.CursorLocation = 2 

rs_image.LockType = 1 

rs_image.Open() 


rs_image_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0. Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Image Result</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<!-- 


Stylel { 
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color: #CC3300; 
font-weight: bold; 


} 


Zee 
</style> 
</head> 
<body> 
<table width="95%" height="340" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
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</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="73"><hr /> <h3 align="center"> Image Result </h3> 
<hr/> = </td> 
</tr> 
<tr> 


a 13 


<td><p align="center">Image: <span 
class="stylel"><%=(rs_image.Fields.Item("graphicName"). Value)%></span> </p> 


<p align="center"><img 
src="<%=(rs_image.Fields.Item("graphicPath").Value)%>" /></p></td> 
</tr> 
</table> 


<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 

</html> 

<% 

rs_image.Close() 

Set rs_image = Nothing 
%> 
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38. Image_Result_All_ Nps.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 

<!--#include file="Connections/conn_DistanceLearning.asp" --> 

<% 

Dim rs_allGraphics _MMColParam 

rs_allGraphics _MMColParam = "2" 

If (Request.QueryString("subsectionid") <> '"") Then 
rs_allGraphics _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_allGraphics 

Dim rs_allGraphics_ numRows 


Set rs_allGraphics = Server.CreateObject("ADODB.Recordset") 

rs_allGraphics.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_allGraphics.Source = "SELECT * FROM Subsection Has Graphics, Graphic 
WHERE Subsection _Has_Graphics.graphicid= Graphic.graphicid AND 
Subsection_Has_Graphics.subsectionid = " + Replace(rs_allGraphics _MMColParam, 
mum) +" ORDER BY Graphic.graphicName ASC" 

rs_allGraphics.CursorType = 0 

rs_allGraphics.CursorLocation = 2 

rs_allGraphics.LockType = 1 

rs_allGraphics.Open() 


rs_allGraphics numRows = 0 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "1" 

If (Request.QueryString("subsectionid") <> "") Then 
rs_subsection _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 


Set rs_subsection = Server.CreateObject("ADODB.Recordset") 

rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subsection.Source = "SELECT  subsectionid, subsectionName FROM 
Subsection WHERE subsectionid = " + Replace(rs_subsection MMColParam, "", """ 
+ we 
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rs_subsection.CursorType = 0 
rs_subsection.CursorLocation = 2 
rs_subsection.LockType = 1 
rs_subsection.Open() 


rs_subsection_numRows = 0 
%> 

<% 

Dim Repeatl__numRows 
Dim Repeatl index 


Repeat] __numRows = 5 
Repeat! index = 0 
rs_allGraphics numRows = rs_allGraphics numRows + Repeat] __numRows 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: All Images</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<I-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 

.stylel {color: #CC3300} 

sos 

</style></head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> All Images for: <span 


class="stylel"><%=(rs_subsection.Fields.Item("subsectionName"). Value)%></span> 
</h3> 
<hr/> </td> 
</tr> 
<tr> 
<td> 
<% 
While ((Repeatl__ numRows <> 0) AND (NOT rs_allGraphics.EOF)) 
%> 
<p 
align="center"><strong><%=(rs_allGraphics.Fields.Item("graphicName"). Value)%></str 
ong></p> 


<p align="center"><strong><img 
src="<%=(rs_allGraphics.Fields.Item("graphicPath").Value)%>" /></strong></p> 
<% 


Repeatl__index=Repeatl__index+1 
Repeat] numRows=Repeatl_ _numRows-1 
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rs_allGraphics.MoveNext() 
Wend 
%></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_allGraphics.Close() 
Set rs_allGraphics = Nothing 
%> 
<% 
rs_subsection.Close() 
Set rs_subsection = Nothing 
%> 
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39. Images_Result_Visitor.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 

<!--#include file="Connections/conn_DistanceLearning.asp" --> 

<% 

Dim Recordset! _MMColParam 

Recordset! _MMColParam = "4" 

If (Request.QueryString("subsectionid") <> "") Then 
Recordset! _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim Recordset1 

Dim Recordset! _numRows 


Set Recordset! = Server.CreateObject("ADODB.Recordset") 

Recordset1.ActiveConnection = MM _conn_DistanceLearning STRING 

Recordsetl.Source = "SELECT Graphic.graphicid, Graphic.graphicName, 
Subsection Has _Graphics.subsectionid FROM Graphic, Subsection Has Graphics 
WHERE Graphic.graphicid=Subsection_Has_Graphics.graphicid AND 
Subsection Has Graphics.subsectionid = " + Replace(Recordsetl MMColParam, '"" 
aa + we 

Recordset1.CursorType = 0 

Recordset1.CursorLocation = 2 

Recordset! .LockType = 1 

Recordset1.Open() 


Recordset] _numRows = 0 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "1" 

If (Request.QueryString("subsectionid") <> "") Then 
rs_subsection _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 


Set rs_subsection = Server.CreateObject("ADODB.Recordset") 

rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subsection.Source = "SELECT  subsectionid, subsectionName FROM 
Subsection WHERE subsectionid = " + Replace(rs_subsection MMColParam, "", """ 
+" ORDER BY subsectionName ASC" 
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rs_subsection.CursorType = 0 
rs_subsection.CursorLocation = 2 
rs_subsection.LockType = 1 
rs_subsection.Open() 


rs_subsection_numRows = 0 
%> 

<% 

Dim Repeatl__numRows 
Dim Repeatl index 


Repeatl__numRows = 10 
Repeat! index = 0 
Recordset! _numRows = Recordset] numRows + Repeat] _numRows 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Images List Result</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000099; 
} 


a:active { 
color: #339900; 
} 


stylel { color: #CC3300; 
font-weight: bold; 


} 

.style2 {color: #CC3300} 

Soe 

</style></head> 

<body> 

<table width="95%" height="300" border="0" align="center" cellpadding="3" 
cellspacing="0"> 

<tr> 
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<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="74"><hr /> <h3 align="center"> Image List for: <span 
class="style2"><%=(rs_subsection.Fields.Item("subsectionName"). Value)%></span> 
Subsection </h3> 
<hr /> 
</td> 
</tr> 
<tr> 
<td> 
<% 
While ((Repeatl__ numRows <> 0) AND (NOT Recordset1.EOF)) 
%> 
<div align="center"><a 
href="Image_Detail_Visitor.asp?graphicid=<%=(Recordset1.Fields.Item("graphicid").Va 
lue)%>"><strong><%=(Recordset1 .Fields.Item("graphicName"). Value)%></strong><br/ 
> 
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</a> 
</div> 
<% 
Repeat! _index=Repeatl__index+1 
Repeat] _numRows=Repeatl _numRows-1 
Recordset1.MoveNext() 


Wend 
%> 
<p><br /> 
If you want to see all <span class="style1">Images</span> for this Subsection 
click the link: &nbsp;<a 


href="Image Result All NPS.asp?subsectionid=<%=(rs_subsection.Fields.Item("subsec 
tionid"). Value)%>">See all Images</a></p></td> 
</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

Recordset1.Close() 

Set Recordset! = Nothing 

%> 

<% 

rs_subsection.Close() 

Set rs_subsection = Nothing 

%> 
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ASC" 


40. Keyword_Request.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 

Dim rs_category 

Dim rs_category_numRows 


Set rs_category = Server.CreateObject("ADODB.Recordset") 
rs_category.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_category.Source = "SELECT * FROM Category ORDER BY categoryName 


rs_category.CursorType = 0 
rs_category.CursorLocation = 2 
rs_category.LockType = 1 
rs_category.Open() 


rs_category_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 


“http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 


<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Search by Keywords</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<script language="JavaScript" type="text/JavaScript"> 
<h aes 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)|].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 


x=d.forms[1i][n]; 


for(i=0;!x&&d.layers&&i<d.layers.length;i++) 


x=MM_findObj(n,d.layers[1].document); 


if(lx && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
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if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 'tmint' and 'tmax+"'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 
} 
/|--> 
</script> 
</head> 
<body> 
<table width="95%" height="403"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 





<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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</tr> 
</table></td> 
</tr> 
<tr> 
<td height="42"><hr /> <h3 align="center"> Search by Keywords</h3> 
<hr/> </td> 
</tr> 
<tr> 
<td height="113"><form name="frmkeywords" id="frmkeywords" 
method="get" action="Keyword_ Result.asp?keywords"> 
<table = width="54%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="25%"><div align="left">Enter Keywords: </div></td> 
<td width="75%"><div align="center"> 
<input name="keywords" type="text" id="keywords" size="40" /> 
</div></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><div align="center"> 
<input name="Submit" type="submit" 
onclick="MM_validateForm('keywords',",'R');return document.MM_ returnValue" 
value="Search" /> 
</div></td> 
</tr> 
</table> 
</form></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_category.Close() 
Set rs_category = Nothing 
%> 
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41. Keyword _Result.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 

<!--#include file="Connections/conn_DistanceLearning.asp" --> 

<% 

Dim rs_recordset_ MMColParam 

rs_recordset_ MMColParam = "0" 

If (Request.QueryString("keywords") <> "") Then 
rs_recordset__MMColParam = Request.QueryString("keywords") 

End If 

%> 

<% 

Dim rs_recordset 

Dim rs_recordset_numRows 


Set rs_recordset = Server.CreateObject("ADODB.Recordset") 

rs_recordset.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_recordset.Source = "SELECT * FROM Subsection WHERE keywords LIKE 
'%" + Replace(rs_recordset__MMColParam, "", """) + "%'" 

rs_recordset.CursorType = 0 

rs_recordset.CursorLocation = 2 

rs_recordset.LockType = 1 

rs_recordset.Open() 


rs_recordset_numRows = 0 
%> 

<% 

Dim Repeatl__numRows 
Dim Repeatl index 


Repeatl__numRows = 2 

Repeatl__ index = 0 

rs_recordset numRows = rs_recordset numRows + Repeat! _numRows 

%> 

<% 

' *** Recordset Stats, Move To Record, and Go To Record: declare stats 
variables 


Dim rs_recordset_total 
Dim rs_recordset_first 
Dim rs_recordset_last 
"set the record count 


rs_recordset_total =rs_recordset.RecordCount 
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Then 


"set the number of rows displayed on this page 

If (rs_recordset_numRows < 0) Then 
rs_recordset_numRows = rs_recordset_total 

Elseif (rs_recordset_numRows = 0) Then 
rs_recordset_numRows = 1 

End If 


"set the first and last displayed record 
rs_recordset_first = 1 
rs recordset last =rs_ recordset first + rs recordset_ numRows - | 


‘if we have the correct record count, check the other stats 
If (rs_recordset_total <> -1) Then 
If (rs_recordset_first > rs_recordset_total) Then 
rs_recordset_first = rs_recordset_total 
End If 
If (rs_recordset_last >rs_recordset_total) Then 
rs_recordset_last = rs_recordset_total 
End If 
If (rs_recordset numRows > rs_recordset_total) Then 
rs_recordset_numRows = rs_recordset_total 
End If 
End If 
%> 
<% 
'*** Recordset Stats: if we don't know the record count, manually count them 


If (rs_recordset_total = -1) Then 


"count the total records by iterating through the recordset 
rs_recordset_total=0 
While (Not rs_recordset.EOF) 
rs_recordset_total = rs_recordset_total + 1 
rs_recordset.MoveNext 
Wend 


' reset the cursor to the beginning 

If (rs_recordset.CursorType > 0) Then 
rs_recordset.MoveFirst 

Else 
rs_recordset.Requery 

End If 


' set the number of rows displayed on this page 
If (rs_recordset numRows < 0 Or rs_recordset_numRows > rs_recordset_total) 
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rs_recordset_numRows = rs_recordset_total 
End If 


"set the first and last displayed record 
rs_recordset_first = 1 
rs recordset last =rs_ recordset first + rs_recordset_numRows - | 


If (rs_recordset_first > rs_recordset_total) Then 
rs_recordset_first = rs_recordset_total 

End If 

If (rs_recordset_last >rs_recordset_total) Then 
rs_recordset_last = rs_recordset_total 

End If 


End If 

%> 

<% 

Dim MM_paramName 

%> 

<% 

'*** Move To Record and Go To Record: declare variables 


Dim MM_rs 

Dim MM_rsCount 

Dim MM size 

Dim MM_uniqueCol 

Dim MM_offset 

Dim MM_atTotal 

Dim MM_paramlsDefined 


Dim MM_param 
Dim MM_index 


Set MM rs =rs_recordset 

MM rsCount =rs_recordset_total 

MM size =rs_recordset_numRows 

MM_uniqueCol = '"" 

MM_paramName = "" 

MM_offset = 0 

MM_atTotal = false 

MM _paramlsDefined = false 

If (MM_paramName <> "") Then 
MM _paramlsDefined = (Request.QueryString(/(MM_paramName) <> "") 

End If 

%> 

<% 
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last 


region 


'*** Move To Record: handle 'index' or 'offset' parameter 
if (Not MM_paramIsDefined And MM_rsCount <> 0) then 


"use index parameter if defined, otherwise use offset parameter 
MM _param = Request.QueryString("index") 
If (MM_param = "") Then 
MM_param = Request.QueryString("offset") 
End If 
If (MM_param <> '"") Then 
MM_offset = Int(MM_ param) 
End If 


‘if we have a record count, check if we are past the end of the recordset 
If (MM_rsCount < -1) Then 
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move 


If (MM_rsCount Mod MM size) > 0) Then ' last page not a full repeat 


MM_offset = MM_rsCount - (MM_rsCount Mod MM size) 
Else 
MM_offset = MM_rsCount - MM size 
End If 
End If 
End If 


"move the cursor to the selected record 

MM_index = 0 

While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) 
MM_rs.MoveNext 
MM_index = MM_index + 1 

Wend 

If (MM_rs.EOF) Then 
MM_offset = MM_index ' set MM_offset to the last possible record 

End If 


End If 

%> 

<% 

'*** Move To Record: if we dont know the record count, check the display range 


If (MM_rsCount = -1) Then 


‘walk to the end of the display range for this page 
MM_index = MM_offset 


332 


While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM offset + 
MM size)) 
MM_rs.MoveNext 
MM_index = MM_index + 1 
Wend 


'if we walked off the end of the recordset, set MM_rsCount and MM size 
If (MM_rs.EOF) Then 
MM_rsCount = MM_index 
If (MM_size < 0 Or MM_size > MM_rsCount) Then 
MM_size = MM_rsCount 
End If 
End If 


‘if we walked off the end, set the offset based on page size 
If (MM_rs.EOF And Not MM_paramIsDefined) Then 
If (MM_offset > MM_rsCount - MM_size Or MM_ offset = -1) Then 
If (MM_rsCount Mod MM size) > 0) Then 
MM_offset = MM_rsCount - (MM_rsCount Mod MM size) 
Else 
MM_offset = MM_rsCount - MM _ size 
End If 
End If 
End If 


"reset the cursor to the beginning 
If (MM_rs.CursorType > 0) Then 
MM rs.MoveFirst 
Else 
MM_rs.Requery 
End If 


‘move the cursor to the selected record 
MM_index = 0 
While (Not MM_rs.EOF And MM_index < MM_offset) 
MM_rs.MoveNext 
MM_index = MM_index + 1 
Wend 
End If 
%> 
<% 
'*** Move To Record: update recordset stats 


"set the first and last displayed record 
rs recordset first = MM_offset + 1 
rs_recordset_last = MM_offset + MM_size 
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If (MM_rsCount <> -1) Then 
If (rs_recordset_first > MM_rsCount) Then 
rs_ recordset first = MM_rsCount 
End If 
If (rs_recordset_last > MM_rsCount) Then 
rs_recordset_last = MM_rsCount 
End If 
End If 


"set the boolean used by hide region to check if we are on the last record 

MM _atTotal = (MM_rsCount <> -1 And MM offset + MM size >= 
MM_rsCount) 

%> 

<% 

"*** Go To Record and Move To Record: create strings for maintaining URL and 
Form parameters 


Dim MM_keepNone 
Dim MM_keepURL 
Dim MM _keepForm 
Dim MM _keepBoth 


Dim MM_removeList 
Dim MM_item 
Dim MM_ nextItem 


"create the list of parameters which should not be maintained 
MM _removeList = "&index=" 
If (MM_paramName <> "") Then 
MM _removeList = MM_removeList & "&" & MM _paramName & "=" 
End If 


MM_keepURL="" 
MM_keepForm="" 
MM _keepBoth="" 
MM_keepNone="" 


‘add the URL parameters to the MM_keepURL string 
For Each MM_ item In Request.QueryString 
MM_nextItem = "&" & MM _ item & "=" 
If dnStr(1,MM_removeList,MM_nextItem,1) = 0) Then 


MM_keepURL = MM _keepURL & MM_ nextItem & 
Server. URLencode(Request.QueryString(MM_item)) 
End If 
Next 
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‘add the Form variables to the MM_keepForm string 
For Each MM_ item In Request.Form 
MM_nextItem = "&" & MM _ item & "=" 
If UnStr(1,MM_removeList,MM_nextItem,1) = 0) Then 


MM keepForm = MM _ keepForm & MM_ nextItem & 
Server. URLencode(Request.Form(MM_item)) 
End If 
Next 


"create the Form + URL string and remove the intial '&' from each of the strings 
MM _ keepBoth = MM_keepURL & MM_keepForm 
If (MM_keepBoth <> "") Then 

MM keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) 
End If 
If (MM_keepURL <>"") Then 

MM keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) 
End If 
If (MM_keepForm <> '"") Then 

MM _keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) 
End If 


"a utility function used for adding additional parameters to these strings 
Function MM_joinChar(firstItem) 
If (firstItem <> "") Then 
MM _ joinChar = "&" 
Else 
MM _joinChar = "" 
End If 
End Function 
%> 
<% 
'*** Move To Record: set the strings for the first, last, next, and previous links 


Dim MM_keepMove 
Dim MM_moveParam 
Dim MM_moveFirst 
Dim MM_moveLast 
Dim MM_moveNext 
Dim MM_movePrev 


Dim MM_urlStr 

Dim MM_paramList 
Dim MM_paramIndex 
Dim MM_nextParam 
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MM_keepMove = MM keepBoth 
MM_moveParam = "index" 


‘if the page has a repeated region, remove 'offset' from the maintained parameters 
If (MM_size > 1) Then 
MM_moveParam = "offset" 
If (MM_keepMove <> '"") Then 
MM paramList = Split(MM_keepMove, "&") 
MM keepMove = '"" 
For MM_paramIndex = 0 To UBound(MM_paramList) 
MM_nextParam = Left(MM_paramList(MM_paramIndex), 
InStr(MM_paramList(MM_paramIndex),"=") - 1) 
If (StrComp(MM_nextParam,MM_ moveParam,1) <> 0) Then 
MM_keepMove = MM_keepMove & "&" & 
MM_paramList(MM_paramIndex) 
End If 
Next 
If (MM_keepMove <> '"") Then 
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) 
End If 
End If 
End If 


' set the strings for the move to links 
If (MM_keepMove <> "") Then 

MM_keepMove = Server. HTMLEncode(MM_keepMove) & "&" 
End If 


MM _ urlStr = Request.ServerVariables("URL") & "?" & MM keepMove & 
MM_moveParam & "=" 


MM_moveFirst = MM_urlStr & "0" 
MM _moveLast =MM_urlStr & "-1" 
MM _ moveNext =MM_ urlStr & CStr(MM_ offset + MM_size) 
If (MM_offset - MM_size < 0) Then 
MM_movePrev = MM _urlStr & "0" 
Else 
MM_movePrev = MM _urlStr & CStr(MM_ offset - MM_size) 
End If 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Subsection Results</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
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<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339933; 


} 

Style] { 
color: #CC3300; 
font-weight: bold; 


} 
Style2 { 
color: #CC0000; 
font-weight: bold; 
} 
ae 
</style></head> 
<body> 
<table width="95%" height="681"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
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<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="68"><hr /> 
<h3 align="center"> Subsection Results</h3> 
<p align="center">&nbsp; Records <span 
class="stylel"><%=(rs_recordset_first)%></span> to <span 
class="stylel"><%=(rs_recordset_last)%></span> of <span 
class="stylel"><%=(rs_recordset_total)%></span> </p> </td></tr> 
<tr> 
<td height="173"> 
<div align="left"> 


<% 
While ((Repeatl__ numRows <> 0) AND (NOT rs_recordset.EOF)) 
%> 
</div> 
<hr align="left" /> 
<p 
align="center"><strong><%=(rs_recordset.Fields.Item("subsectionName"). Value)%></st 
rong></p> 


<p align="left"><%=(rs_recordset.Fields.Item("content"). Value)%></p> 
<p align="left">&nbsp;</p> 
<p align="left">Click at the link below to see <span 
class="style1">Images</span> of 
&quot;<strong><%=(rs_recordset.Fields.Item("subsectionName"). Value)%></strong>& 
quot;: </p> 
<p align="left"><a 
href="Images_Result_Visitor.asp?subsectionid=<%=(rs_recordset.Fields.Item("subsectio 
nid"). Value)%>"><strong><%=(rs_recordset.Fields.Item("subsectionName"). Value)%>< 
/strong></a> </p> 
<div align="left"> 
<% 
Repeat! _index=Repeatl__index+1 
Repeat] _numRows=Repeatl_ _numRows-1 
rs_recordset.MoveNext() 
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Wend 


%> 
</div> 
<p align="left">&nbsp; </p></td></tr> 
<tr> 
<td height="173">&nbsp; 
<hr /> 


<p align="center">Navigate Result Pages: </p> 


<table width="50%" border="1" align="center" cellpadding="3"> 


<tr> 
<td width="23%" align="center"> 
<% If MM_offset <> 0 Then %> 
<a href="<%=MM_moveFirst%>"><img 
border=0></a> 
<% End If' end MM_offset <> 0 %> 
</td> 
<td width="31%" align="center"> 
<% If MM_offset <> 0 Then %> 
<a href="<%=MM_movePrev%>"><img 
border=0></a> 
<% End If' end MM_offset <> 0 %> 
</td> 
<td width="23%" align="center"> 
<% If Not MM_atTotal Then %> 
<a href="<%=MM_moveNext%>"><img 
border=0></a> 
<% End If' end Not MM_ atTotal %> 
</td> 
<td width="23%" align="center"> 
<% If Not MM_atTotal Then %> 
<a href="<%=MM_moveLast%>"><img 
border=0></a> 
<% End If' end Not MM_atTotal %> 
</td> 
</tr> 
</table></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_recordset.Close() 
Set rs_recordset = Nothing 
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src="Images/First.gif" 


src="Images/Previous. gif" 


src="Images/Next.gif" 


src="Images/Last.gif" 


%> 


42. login.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
'*** Validate request to log in to this site. 
MM LoginAction = Request.ServerVariables("URL") 
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "2?" + 
Server. HTMLEncode(Request.QueryString) 
MM_valUsername=CStr(Request.Form("username")) 
If MM_valUsername <> "" Then 
MM_fldUserAuthorization="userGroup" 
MM redirectLoginSuccess="Home_Page.asp" 
MM redirectLoginFailed="login failed.asp" 
MM_flag="ADODB.Recordset" 
set MM_rsUser = Server.CreateObject(MM_flag) 
MM rsUser.ActiveConnection = MM _conn_DistanceLearning STRING 
MM_rsUser.Source = "SELECT userName, password" 
If MM fldUserAuthorization <> "" Then MM rsUser.Source = 
MM rsUser.Source & "," & MM_fldUserAuthorization 
MM _ rsUser.Source = MM rsUser.Source & " FROM User WHERE 
userName="""_ & Replace(MM_valUsername,"",""") &'" AND password="" & 
Replace(Request.Form("password"),"",""™") & "" 
MM. rsUser.CursorType = 0 
MM rsUser.CursorLocation = 2 
MM. rsUser.LockType = 3 
MM_rsUser.Open 
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
"username and password match - this is a valid user 
Session("©MM_ Username") = MM_valUsername 
If (MM_fldUserAuthorization <> "") Then 
Session("MM_UserAuthorization") = 
CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization). Value) 
Else 
Session("MM_UserAuthorization") =" 
End If 
if CStr(Request.QueryString("accessdenied")) <> '"" And true Then 
MM redirectLoginSuccess = Request.QueryString("accessdenied") 
End If 
MM_rsUser.Close 
Response.Redirect(MM_redirectLoginSuccess) 
End If 
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MM rsUser.Close 
Response.Redirect(MM_redirectLoginFailed) 
End If 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Log In</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<script language="JavaScript" type="text/JavaScript"> 
<l-- 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(!x && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 't+min+' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 
} 
//--> 
</script> 
</head> 
<body> 
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<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
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<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Please Log In </h3> 
<hr/> = </td> 


</tr> 
<tr> 
<td><form name="frm_login" id="frm_login" method="POST" 
action="<%=MM_ LoginAction%>"> 
<table width="44%" border="1"__—_— align="center" —_—cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="40%">Enter Username: </td> 
<td width="60%"><input name="username" type="text" id="username" 
/></td> 
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</tr> 
<tr> 
<td>Enter Password: </td> 
<td><input name="password" type="password" id="password" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" 
onclick="MM_validateForm(‘username',",'R','password',",'R');return 
document.MM_returnValue" value="Submit" /></td> 
</tr> 
</table> 
</form> </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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43. login_failed.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Login Failed</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<!-- 

a:link { 

color: #CC3300; 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000099; 
} 


a:active { 
color: #339900; 
} 


= 

</style></head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 

</table></td> 

</tr> 

<tr> 

<td height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
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<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Login Failed </h3> 
<hr/> </td> 
</tr> 
<tr> 
<td><div align="center"> 
<p>Your username and password combination was not recognized. <a 
href="login.asp">Try again</a>. </p> 
</div></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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44. registration_failed.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Registration Failed</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<l-- 

a:link { 

color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


a2 

</style></head> 

<body> 

<table width="95%" height="335"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="154"><hr /> <h3 align="center"> Registration Failed </h3> 
<hr/> = <p align="center">***The username you have selected is already in 
use.*** <br /> 
Please <a href="User_Input_Form.asp">return to the registration form</a> 
and choose a different username.</p></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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45. Search.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Search Page</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

</head> 

<body> 

<table width="95%" height="372" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="103" height="24" id="Search"> 
<param name="movie" value="button1.swf" /> 
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<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed  src="buttonl.swf" width="103"  height="24" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
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<tr> 
<td height="79"><hr /> 
<h3 align="center"> Search Page 


</h3> 
<hr /> </td></tr> 
<tr> 
<td><form name="form1" id="form1" method="get" 
action="Course_Request.asp?radiobutton"> 
<table = width="36%" border="1"—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td colspan="2"><div align="center">How do you want to search for 
content? </div></td> 
</tr> 
<tr> 
<td width="11%"><div align="center"> 
<input name="radiobutton" type="radio" value="0" checked="checked" 
[> 
</div></td> 
<td width="89%"><strong>By Course</strong></td> 
</tr> 
<tr> 
<td><div align="center"> 
<input name="radiobutton" type="radio" value="1" /> 
</div></td> 
<td><strong>By Keywords</strong></td> 
</tr> 
<tr> 
<td colspan="2"><input name="Submit" type="submit" value="Submit" 
/></td> 
</tr> 
</table> 
</form> </td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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46. Subject_Request.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
Dim rs_subject_ MMColParam 
rs_subject_ MMColParam = "1" 
If (Request.Form("courseid") <> "") Then 
rs_ subject MMColParam = Request.Form("courseid") 
End If 
%> 
<% 
Dim rs_subject 
Dim rs_subject_numRows 


Set rs_subject = Server.CreateObject("ADODB.Recordset") 

rs_subject.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subject.Source = "SELECT subjectid, subjectName FROM Subject WHERE 
courseid = " + Replace(rs subject. MMColParam, "", "") + " ORDER BY 
subjectName ASC" 

rs_subject.CursorType = 0 

rs_subject.CursorLocation = 2 

rs_subject.LockType = 1 

rs_subject.Open() 


rs_subject_numRows = 0 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlins="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Subject Request</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

</head> 

<body> 

<table width="95%" height="295"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table — width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
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</tr> 


</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 


classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="75"><hr /> <h3 align="center"> = Subject Request</h3> 
<hr /> 
</td> 
</tr> 
<tr> 
<td><form name="frmSubject" id="frmSubject" method="post" 
action="Topic_Request.asp"> 
<div align="center">Select Subject: 
<select name="subjectid" id="subjectid"> 


<% 
While (NOT rs_subject.EOF) 
%> 

<option 


value="<%=(rs_subject.Fields.Item("subjectid"). Value)%>"><%=(rs_subject.Fields.Item 
("subjectName"). Value)%></option> 
<% 
rs_subject.MoveNext() 
Wend 
If (rs_subject.CursorType > 0) Then 
rs_subject.MoveFirst 
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Else 
rs_subject.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Submit" /> 
</div> 
</form></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_subject.Close() 
Set rs_subject = Nothing 
%> 
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47. Subsection_RequestNPS.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 

<!--#include file="Connections/conn_DistanceLearning.asp" --> 

<% 

Dim rs_topicSubsection MMColParam 

rs_topicSubsection MMColParam = "0" 

If (Request.Form("topicid") <>"") Then 
rs_topicSubsection_MMColParam = Request.Form("topicid") 

End If 

%> 

<% 

Dim rs_topicSubsection 

Dim rs_topicSubsection_numRows 


Set rs_topicSubsection = Server.CreateObject("ADODB.Recordset") 
rs_topicSubsection.ActiveConnection = MM_conn_DistanceLearning STRING 


rs_topicSubsection.Source = “SELECT Subsection.subsectionName, 
Subsection.subsectionid FROM — Subsection,Topic_Has_ Subsections WHERE 
Subsection.subsectionid=Topic_ Has Subsections.subsectionid AND 


ene 


Topic Has Subsections.topicid = " + Replace(rs_topicSubsection _=MMColParam, 
"") +" ORDER BY Subsection.subsectionName ASC" 
rs_topicSubsection.CursorType = 0 
rs_topicSubsection.CursorLocation = 2 
rs_topicSubsection.LockType = 1 
rs_topicSubsection.Open() 


rs_topicSubsection_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Subsection Request NPS</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

</head> 

<body> 

<table width="95%" height="214"  border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
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<td width="88%" align="center" valign="middle" 
bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Subsection Request </h3> 
<hr/> = </td> 
</tr> 
<tr> 
<td> 
<form action="Subsection_Results.asp?subsectionid" method="get" 
enctype="multipart/form-data" name="frmSubsection" id="frmSubsection"> 
<div align="center">Select Subsection: 
<select name="subsectionid" id="subsectionid"> 
<% 
While (NOT rs_topicSubsection.EOF) 
%> 
<option 
value="<%=(rs_topicSubsection.Fields.Item("subsectionid"). Value)%>"><%=(rs_topicS 
ubsection.Fields.Item("subsectionName"). Value)%></option> 
<% 
rs_topicSubsection.MoveNext() 
Wend 
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If (rs_topicSubsection.CursorType > 0) Then 
rs_topicSubsection.MoveFirst 
Else 
rs_topicSubsection.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Submit" /> 
</div> 
</form></td></tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_topicSubsection.Close() 
Set rs_topicSubsection = Nothing 
%> 
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48. Subsection_Results.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 

<!--#include file="Connections/conn_DistanceLearning.asp" --> 

<% 

Dim rs_graphic _MMColParam 

rs_graphic _MMColParam = "0" 

If (Request.QueryString("subsectionid") <> "") Then 
rs_graphic _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_ graphic 

Dim rs_graphic_numRows 


Set rs_graphic = Server.CreateObject("ADODB.Recordset") 
rs_graphic.ActiveConnection = MM _conn_DistanceLearning STRING 
rs_graphic.Source = "SELECT Graphic.graphicid, Graphic.graphicName FROM 


Graphic,Subsection Has Graphics WHERE 
Graphic.graphicid=Subsection_Has_ Graphics.graphicid AND 
Subsection Has_Graphics.subsectionid = " + Replace(rs_graphic _MMColParam, "" 
aa + we 


rs_graphic.CursorType = 0 
rs_graphic.CursorLocation = 2 
rs_graphic.LockType = 1 
rs_graphic.Open() 


rs_graphic_numRows = 0 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "0" 

If (Request.Querystring("subsectionid") <> "") Then 
rs_ subsection MMColParam = Request.Querystring("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 


Set rs_subsection = Server.CreateObject("ADODB.Recordset") 

rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subsection.Source = "SELECT * FROM Subsection WHERE subsectionid = 
"+ Replace(rs_subsection  MMColParam, '"", '""") +" 

rs_subsection.CursorType = 0 
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rs_subsection.CursorLocation = 2 
rs_subsection.LockType = 1 
rs_subsection.Open() 


rs_subsection_numRows = 0 

%> 

<% 

' *** Recordset Stats, Move To Record, and Go To Record: declare stats 
variables 


Dim rs_subsection_total 
Dim rs_subsection_first 
Dim rs_subsection_last 


"set the record count 
rs_subsection_total = rs_subsection.RecordCount 


"set the number of rows displayed on this page 
If (rs_subsection numRows < 0) Then 
rs_subsection_numRows = rs_subsection_total 
Elseif (rs_subsection_numRows = 0) Then 
rs_ subsection numRows = | 
End If 


"set the first and last displayed record 
rs_subsection_first = 1 
rs subsection last =rs_ subsection first + rs_ subsection numRows - 1 


‘if we have the correct record count, check the other stats 
If (rs_subsection_total <> -1) Then 
If (rs_subsection first > rs subsection total) Then 
rs_subsection_first = rs_subsection_total 
End If 
If (rs_subsection_ last >rs_subsection_total) Then 
rs_subsection_last = rs_subsection_total 
End If 
If (rs_subsection numRows > rs_subsection_total) Then 
rs_subsection_numRows = rs_subsection_total 
End If 
End If 
%> 
<% 
'*** Recordset Stats: if we don't know the record count, manually count them 


If (rs_subsection_total = -1) Then 
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"count the total records by iterating through the recordset 
rs_subsection_total=0 
While (Not rs_subsection.EOF) 
rs_subsection_total = rs_subsection_total + 1 
rs_subsection.MoveNext 
Wend 


' reset the cursor to the beginning 

If (rs_subsection.CursorType > 0) Then 
rs_subsection.MoveFirst 

Else 
rs_subsection.Requery 

End If 


' set the number of rows displayed on this page 
If (rs_subsection numRows < 0 - Or rs subsection numRows > 
rs_subsection_total) Then 
rs_subsection_numRows = rs_subsection_total 
End If 


"set the first and last displayed record 
rs_subsection_first = 1 
rs_subsection_last =rs_subsection_first + rs subsection numRows - | 


If (rs_subsection first > rs subsection total) Then 
rs_subsection_first = rs_subsection_total 

End If 

If (rs_subsection_ last >rs_subsection_total) Then 
rs_subsection_last = rs_subsection_total 

End If 


End If 

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0. Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Subsection Text</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 


<!-- 
Sstylel { 
color: #CC3300; 
font-weight: bold; 
} 
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.style2 {color: #CC3300} 
a:link { 

color: #CC3300; 
} 


a:visited { 

color: #CC3399; 
; 
a:hover { 

color: #000099; 
} 


a:active { 
color: #339900; 


} 

Style3 { 
color: #CC0000; 
font-weight: bold; 

} 

ae 

</style> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 

cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button!.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td> <hr/> <h3 align="center"> Subsection Results</h3> 
<hr /> </td></tr> 
<tr> 
<td><p 
align="center"><strong><%=(rs_subsection.Fields.Item("subsectionName"). Value)%></ 
strong></p> 
<p align="left"><%=(rs_subsection.Fields.Item("content"). Value)%></p></td> 
</tr> 
<tr> 
<td><p>&nbsp;</p> 
<p>If you want to see an <span class="stylel">Image</span> for this 
Subsection, select an Image from the list below:</p> 
<form name="frmImage" id="frmImage" method="get" 
action="Image_ Result.asp?graphicid"> 
<div align="center"><br /> 
Select an <span class="style2">Image</span>: 
<select name="graphicid" id="graphicid"> 


<% 
While (NOT rs_graphic.EOF) 
%> 

<option 


value="<%=(rs_graphic.Fields.Item("graphicid"). Value)%>"><%=(rs_graphic.Fields.Ite 
m("graphicName"). Value)%></option> 
<% 
rs_graphic.MoveNext() 
Wend 
If (rs_graphic.CursorType > 0) Then 
rs_graphic.MoveFirst 
Else 
rs_ graphic.Requery 
End If 
%> 
</select> 
<input type="submit" name="Submit" value="Submit" /> 
</div> 
</form> 
<p align="left">&nbsp;</p> 
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<p align="left">If you want to see all <span 
class="stylel">Images</span> for this Subsection, click this link:&nbsp;&nbsp;<a 
href="Image Result All NPS.asp?subsectionid=<%=(rs_subsection.Fields.Item("subsec 
tionid"). Value)%>">See All Images</a> </p></td> 
</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_graphic.Close() 

Set rs_graphic = Nothing 

%> 

<% 

rs_subsection.Close() 

Set rs_subsection = Nothing 

%> 
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49. Test1_Confirm.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "?" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery ="" 

%> 

<% 

'*** Tnsert Record: set variables 


If (CStr(Request("MM_insert")) = "form1") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Topic Has Subsections" 

MM editRedirectUrl = "Form_Subsection_Master.asp" 

MM fieldsStr = "topicid|value|subsectionid|value" 

MM columnsStr = "topicid|jnone,none,NULL|subsectionid|none,none, NULL" 


"create the MM_ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "2" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
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End If 
End If 


End If 

%> 

<% 

'** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> '"") Then 


"create the sql insert statement 
MM tableValues = "" 
MM._dbValues = "" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
ElseIf (MM_delim="") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM_dbValues & "," 
End If 
MM tableValues = MM_tableValues & MM_columns(MM_ i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM editQuery = "insert into " & MM _editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 
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If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_ max__MMColParam 

rs_max__MMColParam = "izacharo" 

If (Session("MM_UserName") <> '"") Then 
rs_max__MMColParam = Session("MM_UserName") 

End If 

%> 

<% 

Dim rs_max 

Dim rs_max_numRows 


Set rs_ max = Server.CreateObject("ADODB.Recordset") 
rs_max.ActiveConnection = MM _conn_DistanceLearning STRING 


rs max.Source = "SELECT subsectionid FROM Subsection WHERE 
subsectionid=(SELECT MAX(subsectionid) FROM Subsection WHERE author = ™ + 
Replace(rs_max__MMColParam, """, """) +)" 


rs_max.CursorType = 0 
rs_max.CursorLocation = 2 
rs_max.LockType = 1 
rs_max.Open() 


rs_max_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Confirm</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 
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<!-- 
a:link { 

color: #CC3300; 
} 


a:visited { 

color: #CC3399; 
; 
a:hover { 

color: #000066; 
} 


a:active { 
color: #339900; 


} 
Stylel { 
color: #FF0000; 
font-weight: bold; 
} 
a 
</style></head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
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rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button!.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27 CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
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<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center"> Confirm Subsection Insertion </h3> 
<hr /> <form name="forml" id="form1" method="POST" 
action="<%=MM_ editAction%>"> 
<table = width="51%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 
<tr> 


<td width="80%"><input name="topicid" type="hidden" id="topicid" 
value="<%= Request.QueryString("topicid") %>" /> 

<input name="subsectionid" type="hidden" id="subsectionid" 
value="<%=(rs_max.Fields.Item("subsectionid"). Value)%>" /> 

eK <span class="style1">Please Confirm Your Subsection 
Insertion</span> ***</td> 


<td width="20%"><input type="submit" name="Submit" 
value="Confirm" /></td> 
</tr> 
</table> 


<input type="hidden" name="MM_ insert" value="form1"> 
</form> 
<p>&nbsp;</p> 
<p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_max.Close() 
Set rs_max = Nothing 
%> 
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50. Template.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Template</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<l-- 

a:link { 

color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


a2 

</style></head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 

<param name="movie" value="button5.swf" /> 

<param name="quality" value="high" /> 

<param name="bgcolor" value="#DEDEBC" /> 

<embed src="button5.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> <tr> 
<td><hr /> <h3 align="center"> Header goes here </h3> 
<hr /> 


<form name="form1" id="form1" method="post" action=""> 
<table width="95%"_ border="1" cellspacing="0" cellpadding="3"> 
<tr> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
</tr> 
</table> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
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51. Test_Form_Update_Subsection.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin,professor" 
MM_authFailed(URL="login.asp" 
MM_grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 

MM editQuery = '"" 

%> 

<% 

'*** Update Record: set variables 


If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) 
<> es) Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "Subsection" 

MM _editColumn = "subsectionid" 

MM recordId = "" + Request.Form("MM_recordId") + ' 

MM editRedirectUrl = "Form Subsection Master.asp" 

MM_fieldsStr = 
"subsectionName|value|description|value|Content|value|keywords|value|author|value" 

MM columnsStr = 
"subsectionName|',none,"|subsectionDescription|',none,"|content|'snone,"|keywords|',none,' 
'lauthor|',none,"" 


"create the MM_ fields and MM _ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 
For MM _i=LBound(MM fields) To UBound(MM fields) Step 2 


MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 
Next 


"append the query string to the redirect URL 
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If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = 0 And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 

%> 

<% 

'*** Update Record: construct a sql update statement and execute it 


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> 
"") Then 


"create the sql update statement 
MM editQuery = "update " & MM _editTable & " set" 
For MM _i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_i+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM _typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM_emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
Elself (MM_delim =") Then ' escape quotes 
MM _formVal = "" & Replace(MM_formVal,""",""™) & "" 
Else 
MM _formVal =MM delim+ MM _ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM editQuery = MM _ editQuery & "," 
End If 
MM editQuery = MM editQuery & MM columns(MM_i) & "=" & 
MM_formVal 
Next 
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MM _ editQuery = MM editQuery & " where" & MM editColumn & "=" & 
MM recordId 


If (Not MM_abortEdit) Then 
"execute the update 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _editQuery 
MM _editCmd.Execute 
MM editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> '"") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 


End If 

%> 

<% 

Dim rs_subsection _MMColParam 

rs_subsection _MMColParam = "1" 

If (Request.QueryString("subsectionid") <> "") Then 
rs_ subsection _MMColParam = Request.QueryString("subsectionid") 

End If 

%> 

<% 

Dim rs_subsection 

Dim rs_subsection_numRows 


Set rs_subsection = Server.CreateObject("ADODB.Recordset") 

rs_subsection.ActiveConnection = MM _conn_DistanceLearning STRING 

rs_subsection.Source = "SELECT * FROM Subsection WHERE subsectionid = " 
+ Replace(rs_subsection  MMColParam, """, """) +" 

rs_subsection.CursorType = 0 

rs_subsection.CursorLocation = 2 

rs_subsection.LockType = 1 

rs_subsection.Open() 


rs_subsection_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml 1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Update Subsection</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
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<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<!-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 
} 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 
} 


ac 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<!-- 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementByld(n); return x; 
} 


function MM_validateForm() { //v4.0 
var 1,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=-MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errorst+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between 'tmint' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 
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j 
|[--> 


</script> 

</head> 

<body> 

<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td  height="109"><table = width="100%" border="0" —_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr />  <h3 align="center"> Update Subsection Record &amp; Content 
</h3> 
<hr /> 
<form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="form1" id="form1"> 


386 


<table = width="95%" border="1"_—_ align="center" —_cellpadding="3" 
cellspacing="0"> 


<tr> 
<td width="30%">Subsection Name </td> 
<td = width="70%"><input §name="subsectionName" type="text" 


id="subsectionName" 
value="<%=(rs_subsection.Fields.Item("subsectionName"). Value)%>" /></td> 


</tr> 
<tr> 
<td>Subsection Description </td> 
<td><textarea name="description" cols="60" rows="5" 


id="description"><%=(rs_subsection.Fields.Item("subsectionDescription"). Value)%></te 
xtarea></td> 

</tr> 

<tr> 

<td>Content</td> 

<td><textarea name="Content" cols="60" rows="15" 
id="Content"><%=(rs_subsection.Fields.Item("content"). Value)%></textarea></td> 

</tr> 

<tr> 

<td>Keywords</td> 

<td><textarea name="keywords" cols="60" rows="5" 
id="keywords"><%=(rs_subsection.Fields.Item("keywords"). Value)%></textarea></td> 

</tr> 

<tr> 

<td><input name="author" type="hidden" id="author" value="<%= 
Session("MM_ Username") %>" /> 

<input name="topicid" type="hidden" id="topicid" value="<%= 
Request.QueryString("topicid") %>" /></td> 

<td><input name="Submit" type="submit" 
onclick="MM_validateForm('subsectionName'’,",'R','description’,",'R','Content’,",'R','keyw 
ords',",'R');return document.MM_returnValue" value="Submit" /></td> 


</tr> 
</table> 
<input type="hidden" name="MM_update" value="form1"> 
<input type="hidden" name="MM_recordId" value="<%= 


rs_subsection.Fields.Item("subsectionid"). Value %>"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
<tr> 
<td>&nbsp; </td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 


387 


</html> 

<% 

rs_subsection.Close() 

Set rs_subsection = Nothing 
%> 


52. Topic_Request.asp 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 

<!--#include file="Connections/conn_DistanceLearning.asp" --> 

<% 

Dim rs_topic _MMColParam 

rs_topic__MMColParam = "1" 

If (Request.Form("subjectid") <> "") Then 
rs_topic__MMColParam = Request.Form("subjectid") 

End If 

%> 

<% 

Dim rs_topic 

Dim rs_topic_numRows 


Set rs_topic = Server.CreateObject("ADODB.Recordset") 

rs_topic.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_topic.Source = "SELECT topicid, topicName FROM Topic WHERE subjectid 
="-+ Replace(rs_topic_ _MMColParam, "", """) +" ORDER BY topicName ASC" 

rs_topic.CursorType = 0 

rs_topic.CursorLocation = 2 

rs_topic.LockType = 1 

rs_topic.Open() 


rs_topic_numRows = 0 

%> 

<!IDOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance Learning: Topic Request</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 

<style type="text/css"> 

<!-- 
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.stylel {color: #000099} 

.style2 {color: #3333FF} 

se 

</style> 

</head> 

<body> 

<table width="95%" height="353" border="0" align="center" cellpadding="3" 
cellspacing="0"> 


<tr> 
<td height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td  height="46"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
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<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="145"><hr /> <h3 align="center"> Topic Request </h3> 
<hr/> </td> 
</tr> 
<tr> 
<td><form name="frmTopic" id="frmTopic" method="post" 
action="Subsection_RequestNPS.asp"> 
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<div align="center"> 


Select Topic: 
<select name="topicid" id="topicid"> 
<% 
While (NOT rs_topic.EOF) 
%> 
<option 


value="<%=(rs_topic.Fields.Item("topicid"). Value)%>"><%=(rs_topic.Fields.Item("topi 
cName"). Value)%></option> 
<% 

rs_topic.MoveNext() 
Wend 
If (rs_topic.CursorType > 0) Then 

rs_topic.MoveFirst 
Else 

rs_topic.Requery 
End If 
%> 

</select> 
<input type="submit" name="Submit" value="Search" /> 
</div> 
</form></td> 

</tr> 
</table> 
</body> 
</html> 
<% 
rs_topic.Close() 
Set rs_topic = Nothing 
%> 
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53. User_Input_Form.asp 


<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/conn_DistanceLearning.asp" --> 
<% 
' *** Restrict Access To Page: Grant or deny access to this page 
MM_authorizedUsers="admin" 
MM_authFailed(URL="login.asp" 
MM_§grantAccess=false 
If Session("MM_ Username") <> '"" Then 
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(nStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) 


Then 
MM_ grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM _ referrer = MM _ referrer & "2" & 
Request.QueryString() 


MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" 


& Server. URLEncode(MM referrer) 


Response.Redirect(MM_authFailedURL) 
End If 
%> 
<% 
' **%* Edit Operations: declare variables 


Dim MM _editAction 
Dim MM_abortEdit 
Dim MM _editQuery 
Dim MM _editCmd 


Dim MM _editConnection 
Dim MM _ editTable 

Dim MM _editRedirectUrl 
Dim MM _editColumn 
Dim MM _recordId 


Dim MM fieldsStr 
Dim MM _columnsStr 
Dim MM fields 

Dim MM _columns 
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Dim MM_typeArray 
Dim MM_formVal 
Dim MM _delim 
Dim MM_altVal 
Dim MM _emptyVal 
Dim MM i 


MM editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) 
If (Request.QueryString <> '"") Then 


MM editAction = MM editAction & nee & 
Server. HTMLEncode(Request.QueryString) 
End If 


‘boolean to abort record edit 
MM_abortEdit = false 


' query string to execute 
MM editQuery = '"" 
%> 
<% 
'*** Redirect if username exists 
MM_flag="MM_ insert" 
If (CStr(Request(MM_flag)) <> "") Then 
MM_dupKeyRedirect="registration_failed.asp" 
MM rsKeyConnection=MM_conn_DistanceLearning STRING 
MM_dupKeyUsernameValue = CStr(Request.Form("userName")) 
MM_dupKeySQL="SELECT userName FROM User WHERE userName=" & 
MM_dupKeyUsernameValue & """ 
MM_adodbRecordset="ADODB.Recordset" 
set MM_rsKey=Server.CreateObject(MM_adodbRecordset) 
MM rsKey.ActiveConnection=MM_rsKeyConnection 
MM rsKey.Source=MM_dupKeySQL 
MM_rsKey.CursorType=0 
MM rsKey.CursorLocation=2 
MM rsKey.LockType=3 
MM_rsKey.Open 
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
‘the username was found - can not add the requested username 
MM_qsChar = "?" 
If UnStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" 
MM _ dupKeyRedirect = MM dupKeyRedirect & MM qsChar & 
"requsername=" & MM_dupKeyUsername Value 
Response.Redirect(MM_dupKeyRedirect) 
End If 
MM rsKey.Close 
End If 
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%> 
<% 
'*** Tosert Record: set variables 


If (CStr(Request("MM_insert")) = "frmUser") Then 


MM editConnection = MM _conn_DistanceLearning STRING 

MM editTable = "User" 

MM editRedirectUrl = "Form_Master_User.asp" 

MM_fieldsStr = 
"firstname|value|lastname|value|offPhone|value|offRoom|value|email|value|userNamel|val 
ue|password|value|userGroup|value" 

MM columnsStr = 
"firstName|',none,"|lastName|',none,"|officephone|',none,"|officeRoom|',none,"|email|';non 
e,"|userName|',none,"|password|',none,"|userGroup|',none,"" 


"create the MM_ fields and MM_ columns arrays 
MM fields = Split(MM_fieldsStr, "|") 
MM columns = Split(MM_columnsStr, "|") 


"set the form values 

For MM _i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_1))) 

Next 


"append the query string to the redirect URL 
If (MM_editRedirectUrl <> '"" And Request.QueryString <> '"") Then 
If (InStr(1, MM editRedirectUrl, "?", vbTextCompare) = O And 
Request.QueryString <> "") Then 
MM editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString 
Else 
MM editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString 
End If 
End If 


End If 
%> 
<% 


'*** Tnsert Record: construct a sql insert statement and execute it 


Dim MM_tableValues 
Dim MM_dbValues 


If (CStr(Request("MM_insert")) <> "") Then 
"create the sql insert statement 
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MM tableValues = "" 
MM._dbValues = "" 
For MM_i=LBound(MM fields) To UBound(MM fields) Step 2 
MM_formVal = MM_fields(MM_it+1) 
MM typeArray = Split(MM_columns(MM_i+1),",") 
MM_ delim = MM_typeArray(0) 
If (MM_ delim = "none") Then MM_ delim ="" 
MM_altVal = MM _typeArray(1) 
If (MM_altVal = "none") Then MM_altVal ="" 
MM _emptyVal = MM_typeArray(2) 
If (MM_emptyVal = "none") Then MM_emptyVal = '"" 
If (MM_formVal = "") Then 
MM_formVal = MM _emptyVal 
Else 
If (MM_altVal <> '"") Then 
MM_formVal = MM_altVal 
Elself (MM_delim =") Then ' escape quotes 
MM_formVal = "" & Replace(MM_formVal,""",""™") & "" 
Else 
MM _formVal =MM delim+MM_ formVal + MM_ delim 
End If 
End If 
If (MM_i<> LBound(MM fields)) Then 
MM tableValues = MM _tableValues & "," 
MM_dbValues = MM _dbValues & "," 
End If 
MM _tableValues = MM_tableValues & MM_columns(MM_1i) 
MM_dbValues = MM_dbValues & MM_formVal 
Next 
MM _editQuery = "insert into" & MM _ editTable & " (" & MM _ tableValues & 
") values ("& MM_dbValues & ")" 


If (Not MM_abortEdit) Then 
"execute the insert 
Set MM_editCmd = Server.CreateObject("ADODB.Command") 
MM editCmd.ActiveConnection = MM_editConnection 
MM editCmd.CommandText = MM _ editQuery 
MM editCmd.Execute 
MM _editCmd.ActiveConnection.Close 


If (MM_editRedirectUrl <> "") Then 
Response.Redirect(MM_editRedirectUrl) 
End If 
End If 
End If 
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%> 

<% 

Dim rs_welcome_MMColParam 

rs_ welcome _MMColParam = "1" 

If (Session("MM_Username") <> "") Then 
rs_ welcome _MMColParam = Session("MM_ Username") 

End If 

%> 

<% 

Dim rs_welcome 

Dim rs_welcome_numRows 


Set rs welcome = Server.CreateObject("ADODB.Recordset") 

rs_welcome.ActiveConnection = MM_conn_DistanceLearning STRING 

rs_welcome.Source = "SELECT firstName FROM User WHERE userName = " 
+ Replace(rs_ welcome _MMColParam, '"", """) +" 

rs_welcome.CursorType = 0 

rs_welcome.CursorLocation = 2 

rs_welcome.LockType = | 

rs_welcome.Open() 


rs_welcome_numRows = 0 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title>Distance Learning: Regigistration Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<link href="DLStylesheet.css" rel="stylesheet" type="text/css" /> 
<style type="text/css"> 
<I-- 
a:link { 
color: #CC3300; 
} 


a:visited { 
color: #CC3399; 


a:hover { 
color: #000066; 
} 


a:active { 
color: #339900; 


} 
.stylel {color: #FFO000} 
.style2 {color: #3300CC} 
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--> 
</style> 
<script language="JavaScript" type="text/JavaScript"> 
<!-- 
function MM_findObj(n, d) { //v4.01 
var p,i,x;_ if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) 


d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} 
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) 
x=d.forms[i][n]; 
for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj(n,d.layers[1].document); 
if(lx && d.getElementByld) x=d.getElementBylId(n); return x; 


} 


function MM_validateForm() { //v4.0 
var i,p,q,nm,test,num,min,max,errors=",args=-MM_validateForm.arguments; 
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=-MM_findObj(args[i]); 
if (val) { nm=val.name; if ((val=val.value)!="") { 
if (test.indexOf(‘isEmail')!=-1) { p=val.indexOf('@'); 
if (p<1 || p==(val.length-1)) errors+='- 'tnm+' must contain an e-mail 
address. \n'; 
} else if (test!='R') { num = parseFloat(val); 
if (isNaN(val)) errorst+='- '+nm+' must contain a number. \n'; 
if (test.indexOf(‘inRange') != -1) { p=test.indexOf(':'); 
min=test.substring(8,p); max=test.substring(p+1); 
if (num<min || max<num) errorst='- 'tnm+' must contain a number 
between '+min+' and 'tmax+'.\n'; 
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n’'; } 
} if (errors) alert('The following error(s) occurred:\n'terrors); 
document.MM_returnValue = (errors == "); 
} 
/|--> 
</script> 
</head> 
<body> 
<table width="95%" height="214" border="0" align="center" cellpadding="3" 
cellspacing="0"> 





<tr> 
<td  height="109"><table = width="100%" border="0" _—_ align="left" 
cellpadding="3" cellspacing="0" bgcolor="#DEDEBC"> 
<tr> 
<td width="88%" align="center" valign="middle" 


bgcolor="#DEDEBC"><img src="Images/nps_banner.gif" width="447" height="97" /> 
</td> 
</tr> 


397 


</table></td> 


</tr> 
<tr> 
<td  height="50"><table = width="72%" border="0" —_ align="center" 
cellpadding="3" cellspacing="0" bordercolor="#F6F6F3"> 
<tr> 
<td width="14%" bgcolor="#DEDEBC"><object 


classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button2.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button2.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" name="Search" width="100" height="23" id="Search"> 
<param name="movie" value="button1.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonl.swf" width="100" height="23" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#DEDEBC" 
name="Search"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 
<param name="movie" value="button3.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button3.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="100" height="23"> 


398 


—" 


<param name="movie" value="button4.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="button4.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="100" height="23" 
bgcolor="#DEDEBC"></embed> 
</object></td> 
<td width="14%" bgcolor="#DEDEBC"><object 
classid="clsid:D27CDB6E-AE6D-1 | cf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0" width="103" height="24"> 
<param name="movie" value="button5.swf" /> 
<param name="quality" value="high" /> 
<param name="bgcolor" value="#DEDEBC" /> 
<embed src="buttonS.swf" quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Ve 
rsion=ShockwaveF lash" type="application/x-shockwave-flash" width="103" height="24" 
bgcolor="#DEDEBC"></embed> 


</object></td> 
</tr> 
</table></td> 
</tr> 
<tr> 
<td><hr /> <h3 align="center" ~—class="stylel"><span 


class="style2">Welcome</span>&nbsp;<%=(rs_welcome.Fields.Item("firstName"). Valu 
e)%>&nbsp;!</h3> 
<p align="center" class="stylel">***Be careful who you register in the DLR 
Database*** </p> 
<h3 align="center">Registration Form  </h3> 
<hr /> <form ACTION="<%=MM_editAction%>" METHOD="POST" 
name="frmUser" id="frmUser"> 
<table = width="95%" border="1"_—_ align="center" ~—_cellpadding="3" 
cellspacing="0"> 
<tr> 
<td width="31%">First Name </td> 
<td width="69%"><input name="firstname" type="text" id="firstname" 
/></td> 
</tr> 
<tr> 
<td>Last Name </td> 
<td><input name="lastname" type="text" id="lastname" /></td> 
</tr> 
<tr> 
<td>Office Phone</td> 
<td><input name="offPhone" type="text" id="offPhone" /></td> 
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</tr> 


<tr> 

<td>Office Room </td> 

<td><input name="offRoom" type="text" id="offRoom" /></td> 
</tr> 
<tr> 


<td>Email Address </td> 
<td><input name="email" type="text" id="email" size="40" /></td> 
</tr> 
<tr> 
<td>User Name </td> 
<td><input name="userName" type="text" id="userName" /></td> 
</tr> 
<tr> 
<td>Password</td> 
<td><input name="password" type="password" id="password" /></td> 
</tr> 
<tr> 
<td>User Group </td> 
<td><input name="userGroup" type="text" id="userGroup" /></td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="Submit" type="submit" 
onclick="MM_validateForm('firstname',”,'R','lastname’,",'R','email',",'RisEmail','userNam 
e’,",'R','userGroup',",'R','‘password',",'R');return document.MM_returnValue" 
value="Submit" /></td> 
</tr> 
</table> 
<input type="hidden" name="MM_ insert" value="frmUser"> 
</form> <p align="left">&nbsp;</p></td> 
</tr> 
</table> 
<p>&nbsp;</p> 
<p>&nbsp;</p> 
</body> 
</html> 
<% 
rs_welcome.Close() 
Set rs_welcome = Nothing 
%> 
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